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produits DART 
STYLO OPTIQUE : De loin le meilleur de tous, 
le stylo optique DART à fibre optique vous 
permettra de réaliser de véritables chef d'œu- 
vres. Fourni avec logiciel d'exploitation très 
complet. 
stylo optique . 
SCANNER GRAPHIQUE : Ce scanner, très sim- 
ple d'utilisation, vous permettra de digitaliser 
toute image sur support papier, à partir de la 
DMP 2000. Fourni avec un logiciel d'exploita- 
tion très puissant. 
scanner graphique “DART" 


DIGITALISEUR ARA 

Ce digitaliseur vous permettra non seulement de 
digitaliser des images vidéo provenant d'une ca 
méra mais aussi des images provenant direc- 
tement de votre T.V. Un logiciel très complet 
vous permettra d'embellir, retoucher, stocker 
les images digitalisées. Entièrement français 

digitaliseur ARA . 990 F 


] joystick compétition 
PRO5000 170 F 


{clavier AZERTY) 


#4 SUPER-PROMOTION 
O CPC 6128 coul + impr. 


DMP 2000 . 5490 F 
CPC 6128 monochrome... 2990 F Les complices de vos Amstrad PCW 8256. 
CPC 6128 couleur 3990 F PCW: JPCW 8512. 

]CPC 464 monochrome. 1990 F Clextension 256k 399F (2% ect PCW 8256 
C]CPC 464 couleur. 2990 F -Jextension horloge 499F 1 #.RS 232/centronic 
CJ'imprimante DMP 2000 . 1690 F Dinterface joystick 399F ELAnten ALU 

interface RS 232 (Amstrad). . . . . . 590 F Er a isa + musique 499F PP 
souris GERS Tene trart 690 F ; Disquettes vierges 
7 ler lect M re © — 64 K pour 464-664 499F Re x Clà l'unité 
C La gts Nr k 256 Ksilicon disc pour 6128 999 F @ Tete d'impression gssquilles ] ui 0. 
mangétophone (avec câble) . . . . . . . . 340 F [256 K RAM pour 6128 999 F © Vitesse d'impression de 100 cps en mode listing Cassettes vierges C20 
Cable HanBto ne A LR ve D 50 F [1256 K silicone disc pour 464-664 999F et16cpsenNlQ 
us dre 7256 K RAM pour 464-664 999F © Niveau de bruit inférieur à 52 dB 
crayon optique 6128 299F © Entraînement du papier par friction ou traction 
crayon optique 464 


[2 imprimante SEIKOSHA SP 180 2190F 


Rallonge alimentation + vidéo 

ne soyez plus collé à l'écran, rallonge 464 . 

ne soyez plus collé à l'écran, rallonge 6128 180 F 

housse pour moniteur + clavier 175F 
(préciser couleur ou monoc.) 

ruban imprimante DMPI (par 2) 

ruban imprimante DMP 2000 

[] adaptateur peritel tous CPC 


Câble imprimante AMSTRAD 
Vous permet de connecter votre AMSTRAD à n'im- 
porte quelle imprimante au standard “centronic”. 
câble imprimante 


130F 


TeGyNi MySut 


10 % de remise 
sur tout achat* 


INTERFACE TV 


POUR AMSTRAD CPC 


[] interface TV (avec câble). 
1490 F 


LOGICIELS CPC 
C 


“ne lui manque que la parole”, synthé. VOCI la lui donne ! 
Très performant ce synthétiseur vocal va vous permettre 
de rendre votre ordinateur plus bavard qu'un politicien en 
campagne ! 

[1 synthétiseur vocal 

[7 logiciels vocaux sur disquette 


150 F 


549 F * du 1.07.87 au 31.08.87 


195F 


D 


7160 F 
1155 F 
220 F 
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textomat .... 1450 F 
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star rider Il .. 


mario bros 
mario brothers ...... 
masque 
mastertronic disque 1 

mastertronic disque 2 .. 
mastertronic disque 3 ... 
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la cuisine française sites 


175F 
199F 
140F 
140F 
199F 
210 F 


championship foot ball 
cobra pinball 

cosa nostra 

data mat . 

chiffres et des lettres 

despotik design .... 


3 AS amstrad 
3 D grand prix 


james debug. grand saut . | 
KYA. 


gold hits Il 
antiriad . 


arkanoïd 
army moves .. 
arsène 


eden blues 
enduro racer 
express raider 


la geste d'artillac .... 
la solution ..... 
last mission 


140 F 


255 F 
950 F 
195 F 


métro cross . 


meurtre à grande vitesse | 
meurtre sur l'atlantique . [] 


they sold a million (1) [150 F 


they sold a million (2) [1145 F 
they sold a million (3) 0145 F 


0155 F 


thing bounces back 
tony truand 
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220 F 
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billy la banlieue 

bob winner ............. 
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bidget familial 
calcumat 


199 F 
140F 
7215F 
160 F 
1145 F 
175F 
165 F 
145F 
199 F 
160 F 


trivial pursuit 

tt racer 

uchi mata ........ 

volley ball ... 

world games 

z comme zark darvor .... 
zox 2099 ... 
scalextric ... 
marche à l'ombre 


les passagers du vent .. 
macadam bumper 
marche à l'ombre 
] meurtres en série 


LIVRES 


routines du cpc . 149F 
liv. lect. disq. cpc. . 149F 
Jcp/m + sur cpc et pcw 100 F 
C] graphis. et sons du cpc 129 F 
C7 amstrad exploré .108F 
CI basic "+" 80 rout. .... 100 F 
_] musique sur l'amstrad. 148 F 
prog. éduc. sur cpc .179F 
j montages ext. peri. CPC 199 F 
bien débuter pcw. . .. 129F 
bien débuter pc 1512 . 149 F 


] phalsberg 
prohibition ... 
silent service . 


CO] bob winner ... 
7] échecs 3 D 
C] grand prix 500 
HMS. cobra 
histoire d'or 


LOGICIELS PCW 


force 4 + miss. detector. 190F 
frank bruno'sboxing .….. 185F 
genecar 

JGPII + mailings 

Jgraphologie + biorythmes 199 F 
Jheathrow air control 

Chistoire d'or . 

Jinfidel 

la paie cresus 

langage “C” (not. snns 
multiplan … 


polyprint + polyword ….. 490F 
Opolyprogram .1185F 
Cquick mailing . 790F 
DS.AS. raid .160F 
sam... .290F 
_]sea talker 265F 
sorcerer 265F 
Cspellbreaker .265F 
spool 350F 
starglider . 240F 
Usteve davis snoo 175F 
Ustrike force harrier . 185F 
Cltassword 8000 .. 450F 
Ctomahawk 180F 
Cltop secret … .. 275F 
Ctrivial pursuit 230F 
rotate 350 F 


alienor 
guardian 
[azerty . 
batman. 
CJblocus 

Cbob winner. 
Cbounder … 
Cbridge player 
Ccobol (not. angl.) 
Jcampagnon 
-Jcompta. gene. {alphasoft) 1175 F 


isa El Toul, 455 
[la bible des cpc 
D 102 prog. sur amstrad 
[] amstrad à l'école 
[] amstrad en famille 

: clefs pour amstrad t1 


TURAIT 


je débute basic amstrad 

grd livre dupcw amstrad 

livre du basic 1512 .. 

livre du gem pc 1512 

O livre logo pcw et cpc 

multiplan sur amstrad 

prog. math. sur cpc . 
programmation sur PCW 149 F 
trucs et astuces pc 1512 179F 
guide réf. tech. 1512 .249F 


0 
D 


mynea … 
Clorphée … 
PCWgraph . 

PCW paint 

7 polymail + polyword 
polyplot + polices n° 1 


Clefs pour amstrad t2 

C] idées les CPC 

C] graphismes sons 464 .. 
C1 grænd livre basic 6128 
[2 langage machine CPC 


CJdatamat PCW 
dbasell 
Clenchanter . 
exbasic.. 
fairlight … 


460F 


COMMENT COMMANDER : Cocher le(s) article(s) désiré(s) ou faites une liste sur feuille à part - Faites le total + frais de port (20 F pour achats inférieurs à 500 F. 40 F de 500 à 1000 F, 80 F pour achat supérieur à 2000 F) 


NOM _ = E ORDINATEUR : []PC 1512 6128 coul. [] 6128 mono. 464 coul. 464 mono. |] 8256 8512 


Tous nos prix sont indicatifs 


TEL. CODE POSTAL VILLE 
] contre-remboursement (prévoir 20 F de frais) — envoyer le tout à : ORDIVIDUEL, 20, rue de Montreuil 94300 VINCENNES Fi 


ADRESSE 
Mode de paiement : 


LE] chèque / [] mandat / ! 


VENTE AUX COLLECTIVITES : numéro réservé : 48.86.92.84 


ACTUALITÉS 


AMSTRAD ABANDONNE 
LE SATELLITE 


Amstrad vient d'annuler sa par- 

ticipation au consortium britanni- 

que BSB (British Satellite Broad- 
casting}, à la fondation duquel elle avait 
participé, et qui a obtenu pour quinze 
ans, la concession de canaux de satel- 
lite de télévision directe. Dans le cadre 
de ce projet, Amstrad devait commercia- 
liser à des prix très bas des équipements 
individuels de réception de Tv-sat. 


AMSTRAD : LE DESORDRE 


AMSTRAD fait vraiment n'im- 

porte quoi. Depuis plusieurs mois, 

l'approvisionnement des bouti- 
ques en 6128 (couleurs en particulier) 
est plus que problématique, (est-ce tou- 
jours en raison d'une forte demande ou 
plutôt d'une production désordonnée ?) 
et conduit les revendeurs à proposer des 
produits de remplacement à peine plus 
chers mais disponibles (ATARI 520 ST 
par exemple). Est-ce bien raisonnable ? 
Après une politique des prix surprenante, 
voilà que de nouveaux 6128 sont équi- 
pés de connecteurs différents des pré- 
cédents. Résultat, les extensions com- 
mercialisées ne peuvent plus s'adapter 
directement sur l'ordinateur. Le posses- 
seur d'un 464 qui désire acquérir un 
6128, devra réfléchir à deux fois s'il pos- 
sède déjà quelques extensions. Les 
revendeurs, non informés de cette déci- 
sion surprenante d'AMSTRAD se retrou- 
vent avec des extensions inadaptées aux 
nouveaux CPC... 
Si, technologiquement parlant, ces nou- 
veaux connecteurs garantissent une 
meilleure fiabilité, on peut malgré tout se 
demander avec quel sérieux Alan 
Sugar compte prendre les parts du mar- 
ché professionnel en compatible IBM. De 
quoi faire réfléchir plus d'un dirigeant de 
PME. Déjà les disques durs. 


FIL DISTRIBUE 
FLEET STREET EDITOR 


France Image Logiciel vient d'ob- 
tenir de l'éditeur anglais Mirror- 
soft, la distribution exclusive de 
la version française du logiciel de PAO 
Fleet Street Editor. Doté de performan- 
ces professionnelles et accessible par 
son prix et son ergonomie au marché 
grand public, il offre des caractéristiques 
avancées telles que : 
— un éditeur de texte intégré ; 
— une bibliothèque d'images immédia- 
tement disponible ; 
— la césure automatique des mots et 
l'espacement proportionnel. 
FSE est disponible pour PCW et les ver- 
sions CPC et PC compatibles devraient 
être adaptées pour septembre 87. 
Fil - Tél. : (1) 48.97.44.44. 


NOUVELLE EXTENSION 
POUR LE PC 1512 


Metrologie et Innelec viennent de 

conclure un accord qui confie à 

cette dernière la distribution 
exclusive en France de la sauvegarde 
1/4" Cipher CD1525 qui sera commer 
cialisée au prix de 5500 FHT. 
D'une capacité de 21 MB formattés, le 
CD1525 version Amstrad assure un bac 
kup du disque dur à la vitesse de 1 MB 
par minute. Facile d'installation et d'uti- 
lisation (menus en français), il peut tra- 
vailler fichier par fichier, par directory et 
sous-directory. Il est livré avec sa carte 
contrôleur, un câble de raccordement et 
les disquettes d'installation et 
d'utilisation. 
Innelec - Tél. : (1) 48.91.00.44. 


CERCLE 
INTERNATIONAL AMSTRAD 


Que voilà, un jeune qui a de l'am- 
bition ! Jérôme vient de fonder la 
CIA à la française. Le cercle inter- 
national Amstrad dont il est l'instigateur 
a pour but de regrouper le maximum de 
clubs Amstrad (au niveau mondial, s'il 
vous plaît |} en vue de favoriser les 
échanges de créations propres à ces 
clubs. Il invite les responsables des clubs 
à le contacter au 93.46.95.63. 


PIEGE À GOGOS 


Depuis quelques semaines, une 

‘’chaîne du bonheur'’ a fait son 

apparition dans le monde des uti- 
lisateurs d'AMSTRAD. Le principe de 
cette chaîne consiste à envoyer un chè- 
que de 20 francs au premier nommé 
d'une liste, de s'inscrire en dernière posi- 
tion sur la liste après avoir rayé le nom 
du premier et enfin à envoyer copie de 
cette liste à 20 nouvelles personnes. Si 
l'on en croit l’instigateur du système, 
vous devriez recevoir en quelques semai- 
nes 16 millions de centimes si la chaîne 
n'est pas rompue. Nous ne saurions trop 
vous recommander de ne jamais partici- 
per à ce genre de jeu qui constitue une 
escroquerie vieille comme le monde. 


UN AMSTRAD 
AU SERVICE DES HANDICAPES 


De nombreuses tentatives ont 

déjà eu lieu pour tenter de don- 

ner grâce à l'électronique et à l'in- 
formatique, la parole aux handicapés. 
Mais la solution retenue par Jean-Louis 
RIOU a pour elle le mérite de la simpli- 
cité et de l'efficacité. Elle met en jeu un 
Amstrad CPC 6128 doté d'un synthéti- 
seur de parole, d'une imprimante option 
nelle et le logiciel ‘‘Voca-Bliss'” déve- 
loppé par Jean-Louis et son équipe. 
L'écran présente à l'opérateur handicapé 
toute une série d'icônes qu'il peut choi 
sir au moyen d'un dispositif à contacts 
adapté à son handicap. C'est ainsi que 
le premier utilisateur disposait d'un cas- 
que muni d'une petite antenne métalli 
que au moyen de laquelle il actionne des 
contacts analogues à ceux d'un joystick 
Tout renseignement concernant ce pro 
gramme et ses applications peut être 
obtenu auprès de Logicom au 
40.65.30.53. 


FORMATION 
A LA TELEMATIQUE 


Créer un centre serveur, ce n'est 
pas si facile ! C'est pourquoi Goto 
Informatique et le groupe Michel 
Diaz Informatique ont passé des accords 
en vue de l'organisation de cours de for 
mation à la témélatique et à la composi- 
tion de pages vidéotex. Les cours seront 
dispensés au 84, rue d'Hauteville à 
Paris X et au 54, cours Lafayette à Lyon. 
Tout renseignement complémentaire au 
20.36.32.23. 


SHAREWARE 
POUR CPC ET PCW 


La société Logistar complète sa 

gamme de ‘’Shareware’”" par une 

série de disquettes destinées aux 
utilisateurs de CPC et PCW Amstrad. 
Des accords passés avec des auteurs 
américains ont permis d'éditer 6 disquet- 
tes de programmes utilitaires et de loi- 
sirs qui seront vendues au prix unitaire 
de 120 F. Un catalogue gratuit peut être 
obtenu sur simple demande en écrivant 
à Logistar, 60 Bd Pesaro, 92000 
Nanterre. 


DU SOFT 
POUR LES COMMUNES 


L'AGED de Brajac a créé toute 

une série de logiciels à l'intention 

des municipalités. De la gestion 
des eaux, des ordures ménagères à la 
gestion des tâches de remembrement, 
des transports scolaires, cette gamme de 
programmes est disponible sur CPC, 
PCW et compatibles PC. Mairie de Bra- 
jeac - Tél. : 71.69.04.67. 


LR, an 


ACTUALITÉS 


Comme chaque mois, nous vous présen- 
tons la liste des nouveaux jeux annon- 
cés pour la gamme Amstrad. Certains 
seront sans doute commercialisés lors- 
que vous lirez ces lignes et nous vous en 
présenterons un banc d'essai dans un 
prochain numéro d'Amstar ou de CPC. 


CHIP 


Grâce à ce jeu d'arcade, osez la 
PROFANATION en partant à la 
recherche de portes mystiques 
dans un château diabolique fait de laby- 
rinthes infernaux contenant de fabuleux 
trésors. Pour vivre ce jeu, vous devez 
vous glisser dans la peau d'un aventu- 
rier ayant pour seul compagnon... un 
fusil. 

CPC : cassette 140 F ; disquette 175F. 


COKTEL VISION 


Une fois encore, nous retrouvons 
1.DEBUG dans une nouvelle aven- 
ture : LE MYSTERE DE PARIS. Le 
problème est simple : le héros doit par- 
venir au sein de la rosace de la cathédrale 
Notre Dame, alors que la ville glisse peu 
à peu dans son passé. Jeu d’'action- 
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aventure présentant un graphisme 
correct. 
CPC : disquette, 195 F. 


GREMLIN GRAPHICS 


En avant pour une arcade- 
aventure voyant s'opposer les 
Cratons aux Bioptons, les pre- 
miers ayant pris en otages un certain 
nombre des seconds, qui ne sont que de 
pauvres créatures mécaniques pacifis- 
tes. Nimrod, compatriote Biopton va se 
dépêcher d'aller de matrice en matrice, 
disséminées dans tout l'univers, afin de 
libérer chaque otage mais attention, les 
défenses Cratons sont très bien organi- 
sées et sans pitié !.… 

CPC : cassette. 


IMAGINE 


Guerre-éclair dans tous les sens 
du terme pour ARMY MOVES 1... 
Vous devez bien entendu pro- 
gresser au travers des lignes ennemies 
pour parvenir jusqu'au lieu ultra-secret où 
se trouvent les dossiers ‘’confidentiels'’. 
Tous les moyens de locomotion sont 
bons : jeep, hélicoptère. ou à pied ! Bon 
courage pour ce jeu ultra rapide... (un 
petit exemple : six commandes à utiliser 
de pair pour faire avancer la jeep !). 
CPC : disquette. 


LORICIELS 


Rentrez dans le monde stressant 
des mafiosi au ‘‘’bon temps’ des 
années 20. Vous, célèbre détec- 
tive de renommée mondiale, devez 
détruire l'organisation criminelle qui sévit 
sur la bonne vieille ville de Chicago... 
Un logiciel d'action où je vous conseille 
de tirer sur tout ce qui bouge si vous vou- 
lez survivre quelque peu ! 
CPC: cassette, 140 F; 
198 F. 


disquette, 


PALACE SOFTWARE 


Pénétrez dans le combat pur, dur 
et sans pitié avec BARBARIAN... 
Parviendrez-vous à sortir vain- 
queur de tous les combats que vous 
devrez mener pour réussir à délivrer la 
princesse Mariana ? Superbe graphisme 
et bonne animation. 

CPC : cassette ; disquette. 


RECTIFICATIF 


Dans le programme Recherche Documen- 
taire du numéro 22, il faut remplacer en 


ligne 1780 le IF 1 = 100 par IF 1= 100. 
De plus, il est nécessaire d'insérer l’ins- 
truction ERASE D entre GOSUB 4360 et 
GOTO 1610 (toujours en ligne 1780). 


PROGRAMMATION AVANCEE 


CAQ 


Jean-Pierre PETIT 


INTRODUCTION 


Dans les quatre articles précé- 
dents, nous avons effectué un cer- 
tain travail qui a débouché sur un mi- 
ni modeleur MOD1 et sur un mini 
programme de dessin 3D (DES). 
Nous pourrions à ce stade dévelop- 
per de nombreuses options et 
sous-options se référant au MODE- 
LEUR et permettant de manipuler 
des objets ou de gérer des objets 
dits STANDARDS, appartenant à 
un fichier du même nom. Mais il est 
temps de sortir de la saisie clavier 
pénible et fastidieuse. Pour ce fai- 
re, nous allons créer un sous- 
programme qui réalise la saisie 
d'une chaine polygonale plane sur 
l'écran. C'est l'opération de base. 
Quand nous saurons faire cela, 
nous intégrerons cette procédure à 
la saisie de chaînes planes situées 
dans des plans parallèles aux plans 
XOY, XOZ, YOZ, nous pourrons utili- 
ser ceci pour saisir la "méridienne" 
d'un objet de révolution. et c'est 
alors que notre MODELEUR de- 
viendra réellement performant. 


SAISIE-ECRAN 


Vous allez reprendre votre program- 
me MOD1 au stade où nous l'a- 
vions laissé dans l'article précédent 
(sauvez-en une copie sur une autre 
disquette, ça sera plus prudent). 


Voici le listing complet de ce pro- 
gramme MODELEUR (Voir listing 1) 


Avant de vous jeter sur vos claviers, 
voyez comment ce programme a 
été modifié. À partir de MOD1 issu 
de l'article précédent, vous pouvez 
d'abord introduire la ligne 26012 
qui envoie au programme 60000, 
de définition du type de saisie de 
chaîne plane. Puis, vous taperez 
cette séquence (60000-60999). 

En l'état, lorsque vous lancerez ce 
programme à travers la séquence : 


Choix de couleurs, etc. 
a-Créer un objet 

a-Créer chaîne par chaîne 
b-Saisie écran 

(Contour polygonal plan) 


Vous verrez apparaître : 


Jean-Pierre PETIT est directeur de recherche au CNRS. I! est l'auteur d'un logiciel de 
CAO de 120 Ko intitulé AMSTRAD 3D, assorti d'un livre du même nom, édité par PSI. Le 
logiciel a été délibérément mis dans le domaine public, c'est-à-dire que vous pouvez le 
coplersurune disquette AMSTRAD-CPCentoutetranquillitéchezunrevendeurouunami. 
Le livre est un gros mode d'emploi du logiciel, pour non programmeur. 

Mais ce programme est riche de ficelles de programmation, liées à l'imagerie 3D. Dans 
cette suite d'articles, Jean-Pierre PETIT explique aulecteur toutes ces astuces, ce qui lui 
permettra peut-être de construire lui-même son propre programme de CAO. 


5ème PARTIE 


Contours polygonaux dans un plan 
parallèle à : 


a-XOY 
b-XOZ 
c-YOZ 


- Votre choix : 
Si vous choisissez l'une de ces op- 
tions, vous verrez apparaître : 


<a> ------- > Cote plan ? 
<b> ------- > Ordonnée plan ? 
<C> ------- > Abscisse plan ? 


Selon le plan choisi, il vous faudra 
évidemment définir soit son abscis- 
se X, soit son ordonnée Y, soit sa 
cote Z. (Figure 1) 


Si vous donnez une quelconque ré- 
ponse numérique, l'exécution s'ar- 
rêtera là parle message : 


Line does not exist in 60140 


Puisque le programme 61000 n'est 
pas encore tapé. 


Nous allons maintenant nous affran- 
chir de cette laborieuse saisie cla- 
vier. On peut, par exemple, rajouter 
une ligne : 


260141F CE = 2 THEN GOSUB 
14000 : GOTO 26999 


Le sous-programme 60000 (voir lis- 
ting) va se référer au type de saisie 
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de contour polygonal : au clavier ou 
à l'écran (contour polygonal plan pa- 
rallèle à l'un des plans de réfé- 
rence). 

Dans cette séquence, on a simple- 
ment défini le plan auquel se réfé- 
rait cette saisie. Lorsqu'on tracera 
sur l'écran un quadrillage de réfé- 
rence, l'abscisse-écran A$ et l'or- 
donnée-écran O$ seront représen- 
tées. 

On va maintenant passer à un sous- 
programme essentiel dans toute 
saisie-écran sur AMSTRAD CPC, 
qui formera l'ensemble (61000- 
61699). 

Dans cet ensemble, on appellera 
d'autres sous-programmes (61700- 
61799) et (61800-61999) . Le sous- 
programme (61800-61999) trace le 
quadrillage sur l'écran. Le détail n'a 
pas beaucoup d'intérêt. Le lecteur 
pourra se rendre seulement comp- 
te du résultat de cette séquence 
en faisant, après l'avoir frappée, 


CLS et RUN 61800. Un quadrillage : 


est dessiné avec mention de 
l'abscisse-écran A$, de l'ordonnée- 
écran O$ et indications de valeurs 
numériques. 

On va introduire maintenant un 
court sous-programme  (61700- 
71799) de traçage d'une CROIX DE 
SAISIE, qu'on déplacera à la coor- 
donnée écran XE,YE à l'aide des 
touches fléchées. 

Dans le DRAW, il y a deux indica- 
tions, outre les indications de coor- 
données. Le premier chiffre indi- 
que la couleur (jaune, si vous n'a- 
vez pas spécifié une autre couleur 
en démarrage de MOD1) ; le se- 
cond, le mode d'affichage du point. 
Quand ce mode est 1, ceci signifie 
que l'ordinateur garde en mémoire 
l'état du pixel avant affichage. Si un 
tracé intervient à la même 
coordonnée-écran, l'ordinateur re- 
placera l'écran, en ce point, dans 
l'état où il était avant les deux tra- 


cés. Ainsi, si on ne modifie pas les 
valeurs XE et YE, deux tracés 
successifs équivalent à pas de tra- 
cé du tout. C'est cette propriété qui 
sera utilisée par la suite pour faire 
disparaître la croix de saisie. 

Dans la procédure de saisie, nous 
déplacerons cette croix de saisie 
sur l'écran et, en validant à l'aide de 
la barre d'espacement, nous saisi- 
rons ainsi un contour polygonal. 
L'indice du point sur ce contour po- 
lygonal sera Il, qui variera de 0 à 12 
(douze segments, treize points par 
chaîne). Les points courants sur 
cette chaïîne-écran auront pour 
coordonnées XE(Il), YE(Il). 

Le programme de saisie-écran com- 
mence donc par une initialisation 
des valeurs, par un tracé de quadhril- 
lage et un tracé de croix. Comme 
les coordonnées-écran sont initiali- 
sées à XE = 300 et YE = 200, cette 
croix est localisée en début de sai- 
sie au centre de l'écran. (Figure 2) 


Figure 2 : Situation en début de saisie - 
Ecran 


En 61030, nous avons la saisie 
d'un caractère au clavier. Les tests 
qui suivent n'entraînent d'action 
que pour certaines valeurs du code 
de touche. Les lignes 61050 à 
61100 traduisent des pressions de 
touches  fléchées avec des 
modifications correspondantes des 
coordonnées-écran (XE,YE). La 
touche 243 correspond à la touche - 
--> On lui  affectera un 
accroissement de XE de 5 unités. 
La touche 247 qui entraîne un 
accroissement de XE de 50 unités 
n'est autre que <Shift>--->; cette 
touche <Shift> démultipliant ainsi le 
déplacement (déplacement lent et 
déplacement rapide). Nous aurons 
donc la figure 5. 


Il reste à inscrire ces données dans 
la chaîne XT(I,J), YT(I,J),ZT(I,J). 


La ligne 26014 renvoie à un sous- 
programme (14000-14999) qui se 
charge du travail. 


On se rappelle que le registre CP 
mémorise la direction du plan dans 
lequel est effectuée la saisie 
(routine 60000). 


Ce type de programme 61000, qu'il 
soit piloté par des touches ou par 
une souris, qu'il soit compilé ou 
non, constitue une des pierres de 
touche de la CAO. Il permet la SAI- 
SIE DE CONTOUR, que celui-ci soit 
une simple chaîne, la méridienne 
d'un objet de révolution ou la base 
d'un prisme, etc. 


ESSAI DE LA PROCEDURE DE 
SAISIE ECRAN 


Séquence : 


a-Créer un objet 

a-Créer chaîne par chaîne 
b-Saisie écran 

c-YOZ 

Abscisse plan ? O 


Vous voyez aussitôt apparaître l'é- 
cran avec ses axes et ses gradua- 
tions. La croix de saisie est bien visi- 
ble, au centre (Voir Figure 2). 

En pressant les touches fléchées, 
vous faites se déplacer cette croix 
de cinq pixels à la fois. En coniju- 
gant avec la touche <Shift>, vous 
avez une démultiplication du mou- 
vement, par sauts de cinquante 
pixels. Supposons que nous dessi- 
nions la lettre A : 


FIGURE SAISIE D'UN 
CONTOUR POLYGONAL PLAN 


À 


EE je saisie 
Fin de saisie 


ça vous va ? 


Figure 3 : Fin de saisie de contour 


A chaque fois que vous voulez dé- 
clencher la saisie du point, vous de- 
vrez presser sur la barre d'espace- 
ment, dont le code est 32. Pour si- 
gnaler la fin de saisie, vous devrez 
presser <Return>. L'écran sera effa- 
cé, puis le quadrillage sera redessi- 
né et vous aurez une demande de 
confirmation. Si vous répondez 
<N>, cette saisie de contour polygo- 
nal sera annulée. 


SITUATION EN FIN DE SAISIE. 


AMSTRAD signalera qu'il crée l'ob- 
jet, puis vous retournerez au MENU 


général. Vous pourrez alors activer 
l'option : 
CREER UNE IMAGE 


qui chaînera sur DES. Je suggers 
la séquence : 


a-Objet en mémoire 

a-Saisie du point de vue au clavier 
Coordonnées observateur : 
X=7?3 
Y=?2 
Z=?71 


Coordonnées du point visé : 
XG=7?0 
YG=7?0 
ZG=7?0 
Ouverture angulaire 
20 degrés par défaut ? 20) 


Vous verrez alors apparaître l'image 
de la figure 4. 


En pressant sur <Retum>, vous 
opérez un retour au MENU princi- 
pal. Maintenant que vous avez vu 
comment procéder, vous pourrez 
faire l'exercice consistant à créer 
dans le plan YOZ une suite de let- 
tres "fil de fer" composant le mot 
AMSTRAD (figure 5). 


COMPLETER 
UN OBJET A L'ECRAN 


C'est là qu'on va commencer à se 
rapprocher des véritables program- 
mes de CAO. Nous venons de 
créer notre objet À et nous vou- 
drions le compléter. || nous suffira 
d'opter pour 


Pressez <Return> 


À 


Figure 4 : Dessin du À 


MSTRAD 


Position 


Pressez <Return> 


AMSTRAD 


Ecran 


CAO SUR CPC 


Figure 5 : Dessin du mot AMSTRAD 


b-Compléter un objet 
a-Créer chaîne par chaîne 
b-Saisie écran 

c-YOZ 

Abcisse plan, ? O 


Nous allons retrouver notre systè- 
me de "papier millimétré" avec no- 
tre croix de saisie, jaune (ou de cou- 
leur 1, si nous avons fait un autre 
choix de couleur). L'objet précé- 
demment créé apparaîtra en bleu 
(couleur 2). Nous pourrons donc 
créer une nouvelle chaîne qui se 
superposera sur cette projection 
de l'objet précédent sur le plan 
YOZ: 


Cette possibilité va désormais dé- 
multiplier nos possibilités de créa- 
tion d'objets. 


TRAVAILLER SUR UN OBJET 
DEJA PRESENT EN MEMOIRE. 


Aucune difficulté de principe. Il suf- 
fit de charger cet objet avec l'option 
d du MENU principal, puis de pas- 
ser sur b-Compléter un objet. 
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CONCLUSION 


Maintenant, nous commençons à 
entrer dans la véritable CAO. Avec 
le matériel que nous avons créé, 
nous pouvons créer à volonté des 
chaînes situées dans des plans pa- 
rallèles aux trois plans principaux de 
notre système de coordonnées de 
repérage. Bien sûr, notre "champ 
de travail" est limité à des valeurs 
des coordonnées allant de +3 à -3 
(pas de zoom). Un véritable pro- 


gramme de CAO permettrait de tra- 
vailler à toutes les échelles. Si vous 
le voulez, vous pourrez réfléchir au 
moyen de modifier cette section de 
programme pour y intégrer un 
zooming. Au stade où nous en som- 
mes, vous devez vous entraîner à 
créer des formes architecturales 
variées. Mais, dans la suite, vous 
verrez que cette saisie de chaîne, 
même à l'écran, ne sera plus qu'un 
des éléments de conception parmi 
une manipulation systématique d' 
objets précalculés, présents dans 
un fichier STANDARD. 


T | N G 


1 REM MODi 26 Mars 87 + SAISIE CHAINE PLANE SUR ECRAN ( >PB< 


Progranme P5) 
2 IF FD=1 THEN 236 


?HC< 


3 FD=i: L' = - 1:REM Initialiser L (L+i chaines dans obj ED 


et ) 

4 DIM XT(49,12),YT(49,12),27(49,12),N(49): REM etc... >DE{ 
7 GOSUB 24660:REM Choix des couleurs >MH< 
1 CLS >BB< 
15 PRINT'MENU PRINCIPAL":PRINT >EG< 
26 PRINT'a-Creer un objet" ?PC< 


36 FRINT"b-Completer un objet" 
46 PRINT"c-Stocker un objet" 
50 PRINT"d-Charger un objet" 


69 FRINT'e-": PRINT" £- "ts PRINT "g-" PRINTh-": PRINT" "FR à 


INT" j-": PRINT'E-" 

76 FRINT "l-Creer une image" 

86 PRINT"m-":PRINT'n-": FRINT"'o-":FRINT"p-" 
186 FRINT"q-Quitter" 


195 IF EL$ #> "" THEN LOCATE DA: PRINT"Ob jet resident : 


"LOCATE 22,23: PRINT EL$ 


197 IF L£-1 THEN LOCATE 31,23:PRINT L+i;" ch." 


269 GOSUB 65690: REM Saisie caractere 
219 IF C=17 THEN END 
220 IF C = 12 THEN CHAIN'des 


239 ON C GOSUB 9000,9019,8066, 5000: REM etc... 


999 ERA, "*+.bak":GOTO 19:REM Boucle MENU 
9006 REM Chargement objet 

5019 INFUT'"Nom de l'objet ";EL$ 

9029 OPENIN EL$ 

5925 INPUT#9,L:REM L'objet a (L+i) chaines 


5939 FOR I=9 TO L : REM Pour toutes les chaines allant 


dbal 


5649 INPUT #9,N(1): REM Nombre de segments sur chaine 
5959 FOR J=0 TO N(I):REM Four tous les points de la cha 


ine d'indice Î 

5660 INFUT #9,XT(I,J),YT(I,J),ZT(1,J) 

5979 NEXT J:NEXT I 

5080 CLOSEIN 

9999 RETURN 

8596 REM Stockage objet 

8919 INPUT"'Nom de l'objet ";EL$ 

86269 OPENOUT EL$ 

8025 PRINT #9,L:REM L'objet a (N+1i chaines 


8636 FOR 1=6 TO L: REM Four toutes les chaines allant d ; 


eñal 


8046 PRINT #9,N(I):REM Nombre de segments sur chaine 
8959 FOR J=6 TO N(I): REM Pour tous les points de la ch : 


aine d'indice Ï : 

8060 PRINT #9,XTCI,J),YT(I, J),2T(1,J) 
8979 NEXT J:NEXT I 

8689 CLOSEOUT 

8999 RETURN 

9909 REM CREER UN OBJET 

9405 L=-1:K=K+1:ELS$(K)="":ELS$=" 

910 CLS:PRINT'CREER UN OBJET":PRINT 
9926 PRINT'a-Creer chaine par chaine" 
9636 PRINT"b-Objet de revolution" 


9648 FRINT"c-Travailler sur un objet standard" 


9656 PRINT"d-Creer un prisme" 

9666 FRINT'"'e-Creer un cercle" 

9679 PRINT"{f-Creer un arc de cercle" 
9690 GOSUB 65600: REM Saisie caractere 
9196 IF C7 OR C =-51 THEN 9999 

9102 IF C0 THEN 9060 

9119 ON C GOSUB 26006: REM, etc... 

9999 RETURN 

14960 REM INCORPORER LA CHAINE À L'OBJET 
14919 L=L+i : N(L)=IT 


?PLE 


>AM£ 
>NN€ 


14920 FOR J = 6 TO N(L):REM TOUS LES POINTS >NH< 
14030 IF CP=1 THEN XT(L,J)=XE(J):YT(L,J)=YE(J):2T(L,J)= >AJ< 
Zi 
14940 IF CP=2 THEN XT(L,J)=XE(J):2T(L,J)=YE(J): YT(L,J)= >BK« 
Yi 
14956 IF CF=3 THEN XT(L,J)=X1 :YT(L,J)=XE(J):2ZT(L,J)=YE CL 
(J) 


14969 NEXT J >AM£ 
14999 RETURN ?TK< 
24969 CLS:PRINT"Choix des couleurs":PRINT *HG4 
24919 PRINT" 9-Noir 1-Bleu" NH 
24626 PRINT" 2-Bleu vif 3-Rouge" >VJ< 
24039 PRINT" 4-Magenta 9-Mauve" GK 
24046 PRINT" 6-Rouge vif 7-Pourpre" ?TL£ 
24958 PRINT" 8-Magenta vif 9-Vert" AM 
24669 PRINT"10-Turquoise 1i-Bleu ciel" ?EN< 
24679 PRINT"1Z-Jaune 13-Blanc" :FP< 
24686 PRINT"14-Bleu pastel 15-0range" :BQ< 
24996 PRINT"16-Rose 17-Magenta pastel" JWR< 
24169 PRINT"18-Vert vif 19-Vert marin" >FH< 
24119 FRINT"29-Turquoise vif 21-Vert citron" #XJ< 
24126 PRINT"22-Vert pastel 23-Turquoise pastel" ?UK< 
24136 PRINT"24-Jaune vif 25-Jaune pastel" #AL< 


24148 PRINT"26-Blanc brillant":PRINT: INPUT'Couleur du f :6M< 
ond (Bleu par defaut)";CF$ 

24145 IF CF#<>"" THEN INK 6, VAL (c#$):PAPER 0 PAT 
24150 PRINT:PRINT: INPUT"Couleur du stylo(Jaune par defa :JN< 
ut) ":CS$ 


24166 IF CS${>"" THEN INK 1,VAL(CS$):PEN 1 >QP< 
24179 PRINT: INPUT'"Couleur axes ";CA$ 2YQ< 
24186 IF CA$<{>"" THEN INK 3, VAL (CAS) ?TR< 
24190 PRINT: INPUT"Couleur quadrillage ";CQ$ ?TTÉ 
24290 IF CQ$<>"" THEN INK 2,VAL(CQ$) >UJ< 
24999 RETURN #UL£ 
25009 REM TRACE EN PLAN DE L'OBJET EXISTANT > 6H< 
25019 FOR I=ÿ TO L : FOR J=9 TO N(I) ?WJ< 
25020 XX=XT(1,J)#100:REM INTERMEDIAIRES DE CALCUL 2 JK< 
25030 YY=YT(1,J)#100 #UL< 
29044 Z2=1T(I,J)#160 ?VM< 
25050 IF C=1 THEN XE=XX+306:YE=YY+200 ?LN 
25066 IF C=2 THEN XE=XX+300:VE=22+200 +QP< 
25070 IF C=3 THEN XE=YY+300: YE=27+200 Va 
25689 IF J=ù THEN PLOT XE,YE ELSE DRAH XE,YE,2 ?RR< 
25099 NEXT J : NEXT I DVT< 
25999 RETURN VMS 
26000 REM CREER DES CHAINES AU CLAVIER >KJ< 


2616 IF L=49 THEN PRINT"Trop de chaines, desole. ..":605 >VK< 
UB 65020:G0T0 26999 

26012 GOSUB 60606 : REM Definition du type de saisie  ?DM< 
26017 IF CE=2 THEN GOSUB 14090:G0T0 26999: REM INCORPOR ?2T< 
ER LA CHAINE SAISIE A L'OBJET ET RETOUR AU MENU GENERTA 

L 


26028 L=L+1: REM Incrementer effectif de chaines LL 
26425 CLS: PRINT'SAISIE CHAINES AU CLAVIER":PRINT AVR 
26930 INFUT'"Nombre de segments “;N(L) >HM< 


26635 IF N(L)>12 THEN PRINT “12 segments maxi !" : GOSU >AT< 
B 65020:G0T0 24025 
26049 FOR J=6 TO N(L): REM Boucle de saisie de coordonn >MN< 
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ees point 

26950 PRINT'Point numero “:;J+1 
26064 INPUT"XT=" 3; XT(L,J) 

26676 INPUT"YT="3YT(L,J) 

26686 INPUT"ZT="3;2T(L,J} 

24096 NEXT J 

26109 PRINT" 

C = 15 THEN 26025 
26130 PRINT" 

F C = 15 THEN 26919 
26999 RETURN 

66494 REM DEFINITION DU TYPE DE SAISIE DE CHAINE PLANE 
65916 CLS : PRINT'DEFINITION TYPE DE SAISIE": FRINT 
60629 PRINT'"'a-Saisie clavier (par defaut)" 

69936 FRINT"b-Saisie ecran (Contour polygonal plan)":60 
SUB 65940: CE=C 

69949 IF CE<>2 THEN CE=1:60T0 69999 

65958 PRINT:PRINT"Contours polygonaux dans plan":PRINT 
66068 PRINT'paralilele a : ":PRINT 


Une erreur :":GOSUB 65426: 1F 


Une autre chaine ?":GOSUB 65026: I 


69079 PRINT"a-X0Y":PRINT"b-X02":PRINT"c-YOZ":GOSUB 6505 : 


0: PRINT 
65119 IF € = 1 THEN INPUT'Cote plan ";21:A$="X":0$="V" 


66129 IF C = 3 THEN INPUT'"Abcisse plan ";X1:A$="Y":0$=" 


7" 


66124 IF C =2 THEN INFUT"'Ordonnee plan ";Yi:A$="X":0$=" 


Fi 

66125 CP=C: REM Memorisation du choix de ce plan 
69149 GOSUE 61994:REM Saisie ecran 

66999 RETURN 

61909 REM SAISIE ECRAN 

61995 CLS 

61916 II = -1 : KE = 300: YE =206 : XE(O)=XE:YE(0)=YE: 
REM INITIALISATIONS 

61615 GOSUB 61800:REM TRACE QUADRILLAGE 

61917 IF L£> -1 THEN GOSUB 25000: REM TRACER L'OBJET EX 
ISTANT 

61020 GOSUB 61700: REM TRACE CROIX 

61039 C$=INKEYS : IF C$="" THEN 61936 

61035 C = ASC (C$) 

61056 GOSUB 61700 : REM EFFACAGE CROIX 


?FF< 
2NGX 
7RR£ 
FVTE 
2GL< 
Mk: 


:DN< 


ZUN< 
?KG< 
?WH° 
2GJ4 
ELLES 


b1960 IF C = 247 THEN XE = XE + S:REM INCREMENTATION 

61965 IF C = 247 THEN XE = XE + SO:REM COORDONNEES ECRA 

N 

61970 IF C = 242 THEN XE = XE - S:REM XE,VE DE LA CROI >FQ< 
X DE SAISIE 


61075 IF C = 246 THEN XE = XE - 56 
61989 IF C = 240 THEN YE = YE + 5 


61985 IF C = 244 THEN YE = ŸYE + 50 
61694 IF C = 241 THEN YE = ŸYE - 5 
61095 IF C = 245 THEN YŸE = ŸE - 50 
61106 IF C = 32 AND II = 12 THEN LOCATE 1,1 :PRINT"Cont 


our limite a 12 segments !":GOSUB 65029 :G0TO 61606 


61102 IF C = 32 THEN II=II+1 : XE(II)=XE: YEUII)=YE : PL 


OT XE(II),VECID),1 
61193 IF I1>0 THEN PLOT XE(II-1),VE(II-1):DRAM XE(ID),Y 
E(I1),1,0 

61195 IF C=13 THEN 61600:REM FIN DE SAISIE 

61119 GOTO 61620 : REM BOUCLE DE SAISIE 
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?XM< 


#TP< 
26K< 


61609 REM FIN DE SAISIE 

bi616 CLS:LOCATE 1,1 : PRINT"'Fin de saisie":GO0SUB 61860 
:REM TRACE QUADRILLAGE 

b1636 MOVE XE(9),YE(6),1 

61646 FOR JJ = 6 TO II 

61656 DRAW XE(JJ),YE(JJ),1 

bibéÿ NEXT JJ 

61670 LOCATE 1,2 : FRINT"Ca vous va :":G0SUB 65926 
61696 IF C <> 15 THEN 61000:REM REBELOTE 

61691 LOCATE 1,2:PRINT"'Fatience, je cree 1 objet...." 


61692 FOR JJ=6 TO II : KE(JJ)=(XE(JJ)-309)/106: YE(JJ)=( > 


YE(JJ)-206)/106:NEXT JJ: REM CONVERSION DES COORDONNES 
ECRAN EN VERITABLES COORDONNEES 

61699 RETURN 

61709 REM TRACE CROIX DE SAISIE CENTREE EN (XE, YE) 
b1716 MOVE XE-16,YE-14 

61729 DRAW XE+19,YE+10,1,1 

61730 MOVE XE-19,YE+10 

61749 DRAW XE+19,YE-19,1,1 

61799 RETURN 

61860 ‘ 

61816 FOR 11 = à TO 250 STEP 59 

61829 MOVE 11,6 : DRAW 11,500,3 

61826 NEXT I1 

61849 MOVE 396,0 : DRAW 36b,566,2 

61850 FOR 11 = 356 TO 639 STEF 5ÿ 

6186 MOVE 11,9 : DRAH 11,500,3 

61879 NEXT Ii 

61899 FOR I1 = à TO 154 STEP 56 

61969 MOVE 9,11 : DRAWN 766,11,3 

61916 NEXT I1 

61920 MOVE 4,299 : DRAW 700,266,2 

61936 FOR 11 = 256 TO 549 STEF 56 

61946 MOVE 0,11 : DRAW 706,11,3 

61950 NEXT If 
61966 LOCATE 29,1 
n ordonne ecran 0$ 
61965 LOCATE 29,7 : PRINT"{" 


61974 LOCATE 46,12 : FRINT A$:REM Indiquer ce qui est e : 


n abcisse ecran A$ 

61972 REM Graduer l'ecran 

61975 LOCATE 29,25 : PRINT"-2" 
61989 LOCATE 26,13 : FRINT"O" 

61994 LOCATE 26,12 : FRINT"{" 

61992 LOCATE 32,12 : PRINT"2" 

61994 LOCATE 12,12 : PRINT"-1" 
61996 LOCATE 6,12 : PRINT“-2" 

61997 LOCATE 29,19 : FRINT"-1" 
61998 REM 

61999 RETURN 

65009 REM Saisie caractere 

65019 PRINT:FRINT"Votre choix :" 
65029 C$=INKEVS$: IF C$="" THEN 65929 
65030 C=ASC(C$) 

65649 IF C>96 THEN C=C-96:G0T0 65535 
65050 IF C{96 THEN C-C-64 

65335 RETURN 


: PRINT O$:REM indiquer ce qui est e : 


sat 


9 


ageinial 


D, tr 


umeniel 
LP 4 


CESSNA OVER MOSCOW 


vec l'humour qui le caractérise ; 

Bertrand BROCARD, le dynami- 

que directeur de Hitech Produc- 
tions, publiait le 5 juin un communiqué 
démentant officiellement la rumeur selon 
laquelle l'atterrissage de Mathias Rust 
sur la Place Rouge serait une opération 
publicitaire destinée à promouvoir son 
nouveau jeu informatique ‘‘’Cessna over 
Moscou. 
Il n'aura fallu que très peu de temps à 
l'équipe de Hitech pour développer ce jeu 
d'arcade qui vous propose de renouve- 
ler l'exploit du jeune pilote allemand sur 
le trajet de près de 1000 km qui sépare 
Helsinki de la capitale soviétique. Vous 
devrez voler très bas pour déjouer le 
réseau très dense de radars soviétiques 
qui vous enverront les Mig aussitôt que 
vous serez détecté. 
Afin de vous permettre de préparer votre 
exploit, CPC a le plaisir de vous présen- 
ter en exclusivité, la carte du territoire à 
survoler avec le tracé des couloirs 
aériens ‘’non surveillés”. 
Hitech Production - BP 155 - 71104 
Chalon-sur-saône Cedex 
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NITROGLYCERINE 
COKTEL VISION 


Aventure/Action 


“Tagada, tagada.. Voilà les 
Dalton !’ C'est ainsi que l'on peut 
planter le décor pour ce logiciel 
dont le nom fait référence à 
l'album de B.D. du même nom. 
Vous êtes cordialement invité à 
partir dans une aventure en cinq 
épisodes, en compagnie du seul et 
unique ami de Lucky Luke, j'ai 
nommé : Jolly Jumper ! 

Le problème est simple : 
l'implantation du cheval de feu 
devant relier l'est à l'ouest du 
pays voit s'opposer deux 
compagnies de chemin de fer et 
les services de Luke sont 
indispensables pour l'une d'entre 

| elles. La vie d'un cow-bow solitaire 
n'est pas de tout repos, 
puisqu'après avoir combattu ies 
bandits dans la ville, neutralisé les 
éboulements sur les rails et remis 
en place tous les aiguillages, il lui 
reste encore à affronter les 
Indiens. 

Avec Nitroglycérine, vous avez 
entre les mains une aventure que 
l'on peut vraiment qualifier de 
facile, ce qui permettra aux plus 
jeunes de pouvoir passer un 
agréable moment en compagnie 
d'un personnage de B.D. Par 
ailleurs, entre chaque épisode se 

| trouve une superbe page 
graphique ; quant à la musique, je 
vous conseillerais quand même de 
la couper car elle a un peu trop 
tendance à faire rengaine.. 


INERTIE 
UBI SOFT 
Arcade 


Avec ce logiciel, nous plongeons en 
plein drame de science-fiction 
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puisque l'action se déroule au 
XXVIIIe siècle. Vous, valeureux 
combattant, allez devoir affronter 
l'horrible Zorglub, afin de sauver 
l'univers. 

Bien sûr, il existe une poignée de 
savants qui seraient susceptibles 
de déjouer les plans diaboliques de 
Zorglub, seulement il les a 
séquestrés sur plusieurs planètes 
du cosmos (7 pour être exact...). || 
ne vous reste plus qu'à partir à 
leur recherche à bord de votre 
vaisseau, en prenant bien garde, 


LE 


car des espions se sont glissés 
parmi les savants. 
Jeu d'arcade tout à fait diabolique 


| car, comme son nom l'indique, 


vous vous trouvez confronté à un 
phénomène d'inertie difficilement 
contrôlable avant d'avoir effectué 
quelques séances d'entraînement. 
Par ailleurs, il est à noter un 
graphisme soigné faisant apparaître 
des écrans colorés et une musique 


| accompagnant la page de 


présentation que l'on écoute avec 


| plaisir jusqu'à la fin. 


| unique et autres. 
| Vous disposez de six vies pour 


| d'un parmi vous sera séduit par ce 
| logiciel. 


MICROPOOL 


PULSATOR | 
Arcade | 


On dirait un dédale, ça ressemble 
à un dédale, mais c'est beaucoup 
plus qu'un simple dédale !.… 

Votre mission à chaque niveau du 
jeu (il y en a cing en tout...) est la 
même : libérer un bébé Pulsy qui 
pleure désespérément dans sa 
prison. Seulement, il n'est pas des 
plus simples d'atteindre sa cellule ! 
Il faut tout d'abord trouver la clé | 
qui pourra ouvrir la porte et | 
lorsque le bébé est libéré, il faut 
trouver la grille de sortie pour 
passer au niveau suivant. 

Vous devez faire appel à un 
minimum de réflexion pour évoluer | 
dans ce jeu car certains passages | 
sont barrés par des portes | 
numérotées que vous ne pouvez | 
ouvrir qu'en passant sur des 
capteurs qui inversent l'état actuel 
de la porte concernée. sans 
compter les innombrables robots 
menaçants et ‘’pompeurs"” 
d'énergie, les chemins à sens 


libérer vos cinq bébés et vous 
évoluez dans des écrans clairs, 
nets et colorés. À mon avis, plus 


METRO-CROSS 
US GOLD 
Arcade 


Conditions requises pour affronter 
ce jeu: avoir du souffle, de 
l'endurance, des jambes et savoir 
courir très vite... 

En effet, Metro-cross nous 
présente un petit bonhomme qui 
doit courir un parcours quadrillé en 
un temps imposé. Chaque couleur 


du parcours n'est pas innocente : 
surtout évitez les gris car ils vous 
ralentiront !.. Bien entendu, les 
obstacles ne manquent pas : boîtes 
de Coca-Cola qui roulent, haies, 
plaques brûlantes, rats qui 
s'agrippent à vous pour vous 
clouer sur place. Par contre, vous 
avez par-ci par-là, des petits 
“coups de pouce” que je vous 
conseille vivement d'utiliser : les 
boîtes bleues qui vous donnent des 
points, ou mieux stoppent le 
chrono pendant deux secondes si 
vous les écrasez, les boîtes vertes 
qui vous font atteindre une vitesse 
prodigieuse et les tremplins qui 
vous propulsent en avant avec un 
magnifique saut périlleux !.… 

Avec Metro-cross, vous avez 
l'avantage d'avoir un jeu d'arcade 
rapide, d’une belle réalisation 
graphique. De plus, les 25 niveaux 
proposés permettent à chacun de 
trouver un degré de difficulté 
adapté à chaque joueur. Pour 
terminer, il faut considérer l'aspect 


Es 


— UN. On 


musical du logiciel qui est du plus 
réussi. 


LEVIATHAN 
ENGLISH SOFTWARE 
Arcade 


Il y a maintenant trois mois 
qu'English Software nous avait 
annoncé l'apparition de Leviathan 
et, le moins que l'on puisse dire, 
c'est qu'ils avaient raison de nous 
tenir en haleine !.. 

En effet, ce superbe jeu d'arcade 
vous transporte dans une petite 
navette rouge très rapide, ayant 
pour unique but d'abattre le plus 
grand nombre d'adversaires… 
Premier avantage : vous n'êtes pas 
restreint quant au nombre 
d'adversaires différents, car il n'y 
en a pas moins d'une dizaine ! 
Second avantage : vous avez la 
possibilité de tirer dans les quatre 
directions tout en faisant un ‘jeu 


de jambes’ dans les demi-tours qui 
est des plus remarquables !.. 


Quant au graphisme, 1! offre un 
décor superbe, que ce soit dans la 
base lunaire, dans la ville ou à 
l'époque grecque. 


Troisième avantage : la musique, 
qui est souvent le parent pauvre 
dans un logiciel, ce qui est 
regrettable. 


Il y a quand même quelques 
inconvénients dus à un sgrolling un 
peu saccadé. Enfin, la version 
cassette n'est vraiment pas 
pratique lorsque vous désirez 
charger de nouveaux décors. 

En conclusion, les fanatiques 
d'arcade pure, dure et rapide 
seront comblés avec ce jeu. Petit 
conseil : armez-vous d'un joystick 
résistant !. 


MYSTIQUE 
EXCALIBUR 
Jeu de rôle mis. 
Avec ce jeu de rôle, Excalibur nous 
propose de vivre une grande saga 
puisque nous avons avec Mystique 
seulement le premier épisode de la 
scène. 

Pour l'heure, il s'agit de réussir à 
rencontrer un vieil Ermite, Kobann. 
En effet, la légende dit qu'il est le 
seul à savoir où est caché 
l'immense trésor amassé par Toth 
Eybocun et Toth Adhem, fils du 
grand maître Toth Eghon et de la 
sombre Thlomana, maîtresse de 
l'entropie et des arts obscurs. 
Comme dans tout jeu de rôle, vous 
commencez par créer votre équipe 
en assignant à chaque personnage 
un nom, une race et un 


alignement. Ensuite, c'est 
l'ordinateur qui se charge de 
donner, de façon aléatoire, des 
valeurs aux différentes 
caractéristiques qui forment le 
personnage. Charge à vous ensuite 
de savoir si vous le conservez ou 
si vous le suicidez.. 

Après la phase préliminaire que 
constitue le labyrinthe, afin de 
vous familiariser avec les sorts et 
les méthodes de combat, vous 
pénétrez enfin dans les donjons, 


phase tant attendue par tous les : 


joueurs invétérés. 
Les amateurs de jeux de rôle ont 
ici un nouveau produit à se mettre 
sous la dent avec des graphismes 
signés qui vous rappellent faïl ou 
la Cité Perdue. 


pt 
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ENDURO RACER 
ACTIVISION 


Simulation sportive 
aus mt et foncez 
plein pot vers les cinq épreuves 


qui vous sont proposées dans ce 
logiciel. Chaque épreuve doit être 
réalisée dan$ un temps donné et 
vous avez l'avantage d'évoluer 
chaque fois dans un paysage 
différent : sur fond de montagne, 
de désert. 

Le jeu ne se limite pas à courir 
des circuits le plus rapidement 
possible car, en effet, vous devez 
absolument éviter des obstacles de 
toutes sortes (autres 
motocyclistes, arbres ou cours 


difficulté, il se trouve en plus des 
obstacles que vous devez franchir 
et qui, malheureusement, vous 
ralentissent sauf si vous roulez sur 
une roue avant de les atteindre. 
Avec Enduro Racer, vous pouvez 
réaliser des exploits et des figures 
acrobatiques en ayant en plus un 
graphisme qui a fait l'objet de 
recherches. pour une simulation, 
ce qui est agréable. Par ailleurs, 
l'écran vous affiche en permanence 
votre vitesse, le numéro de 
l'épreuve que vous effectuez, le 
meilleur score ainsi que le vôtre et 
le temps qu'il vous reste pour 
terminer votre course folle... 

Un logiciel que vous pouvez inclure 


INVITATION 
LORICIELS 
Aventure 


L'action se situe dans les années 
50 ; vous êtes spécialiste des 
sciences occultes. et vous en 
aurez bien besoin pour faire face à 
l'étrange aventure que vous allez 
vivre dans le mystérieux manoir où 
vous avez été invité. 

Au départ, vous semblez seul et 
vous commencez à visiter toutes 
les pièces ; malheureusement, vous 
ne tardez pas à être attaqué par 
d'étranges créatures qu'il faut 
combattre. Par ailleurs, pour 
mener cette aventure à son terme, 
il faut commencer par découvrir 
tous les objets dont vous aurez 
besoin : pour cela, il suffit de 
fouiller la pièce où vous vous 
trouvez et que Vous pouvez 
inspecter sous quatre vues 
différentes. 

Ensuite, votre premier but est de 
brûler le Pentacle qui se trouve 
dans une pièce secrète !.. Pour 
avancer dans le jeu, vous aurez 
besoin d'utiliser les bibliothèques 
qui vous livreront leurs livrets et 
leurs codes secrets vous 
permettant de résoudre les 
énigmes. 

Votre découverte des lieux 
commence à 18h00 mais si vous 


minuit, la mort, ou pire la folie, 
seront au rendez-vous. Tout au 
long du jeu, vous avez à l'écran la 
pièce où vous vous situez ainsi 
que deux baromètres, vous 
indiquant votre état de santé 
physique d'une part et morale 
d'autre part. Le graphisme de ce 
logiciel est propre, fini et de bonne 
qualité ; quant à l'utilisation du 
jeu, elle s'avère très facile et rend 
agréable le moment passé dans ce 


d'eau. ). Pour renforcer la 


ANTI-ERREURS 


Grégory NOE 


Il est difficile de taper un programme 
d'une revue sans commettre d'erreurs | 
Quand les erreurs sont signalées (Syntax 
error in.., Line does not exist in.) la cor- 
rection est facile puisque la ligne est indi- 
quée, mais lorsqu'au ‘’point de vue’’ du 
CPC le programme est correct, il peut en 
être tout autrement pour le lecteur : 

Si le fonctionnement du programme ne 
correspond pas vraiment au programme 
original, alors il est impossible de retrou- 
ver l'erreur commise, à moins de com- 
parer les lignes de votre programme avec 
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dans votre logithèque. 


celles du journal mais c’est très long et 
on risque de passer sur une erreur sans 
la voir. 

C'est pourquoi ce programme a été 
créé ; il est à utiliser si vous ne retrou- 
vez pas Vos erreurs. 

La frappe d’un programme de votre jour- 
nal favori (CPC) terminée, vous faites 
‘’RUN'”, et là vous corrigez toutes les 
erreurs signalées par le CPC en vous 
référant au journal pour comparer. Si 
malgré cela, il ne tourne toujours pas sui- 
vez cette procédure : 


n'avez pas élucidé le mystère à 


manoir obscur. 


— sauvez votre programme en ASCII 
grâce à l'instruction : Save‘'nom. 
prog'',A 

Puis, si vous êtes sur K7 rebobinez la 
bande jusqu'au début du fichier ; 

— chargez Anti-Erreurs ; 

— entrez le nom de votre programme et 
insérez le support où il se trouve (K7 ou 
disquette). 

Après quelques secondes les numéros de 
lignes vont défiler. Vous remarquerez 
qu'à chaque ligne correspond un code de 
2 lettres sous cette forme : >XX<, 
c'est ce code qui va vous permettre de 
savoir d'où proviennent les erreurs. Pour 
cela il faut que vous compariez les codes 
du journal à ceux de l'écran. Si un code 
diffère, notez sur papier le numéro de 
ligne qui correspond à ce code. Conti- 
nuez ainsi jusqu'à la fin du listage. 

Le défilement terminé, rechargez votre 
programme et corrigez les lignes que 
vous avez notées en comparant avec le 
journal. Faites ‘’ RUN" et, oh !, miracle !, 
ça marche. 

Attention : lors de la frappe du pro- 
gramme à traiter, n'omettez aucun 
caractère (sauf les espaces) car Anti- 
Erreurs les prend en compte, et bien sûr 
ne tapez pas les codes de contrôle. A 
partir du mois prochain, tous les listings 
de CPC comporteront ces codes, ce qui 
devrait remédier une fois pour toutes aux 
problèmes de saisie. 

NB. la ligne 480 contient le numéro de 
canal O pour l'écran ou 8 pour l'impri- 
mante. 


ARE HE EH 26H EH 6H EH 6 HE HE HE 6 He 
26 ‘# # 
DE 3% ERREURS * 
°# # 
DE HERO EH HE HE EH 6 DE EH HE HE HE 
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CC)CFE & GREGOKY NOE 1987 
ON ERROR GOT 
MODE 

DIM g+$C22) 
FOR I1=6@ TO 


206 
LEE 
115 
176 22e: READ g$:g$(l)=aq8: 
3€ ATTENTION LA LIGNE 
DESSOUS NE CONTIENT FAS 
DE L'ALFHA-BET 


DE DATA CI 
TOUTES LES 


rl 


RS MONS 


L4é DATA ALE,C,D,E,F,6,H 
FGR, TU, VW, X,Y,2Z 

LEE 
Lé 6 
176 


ANTI-EUCG 
FEEE CHIMEM+ 1) 
OUT "Epc" 
MEMORY HIMEM-- 
CLOSEOUT 
FOFE HIMEH+1, 
DEFINT 


FICHIEF 


=255 THEN 


216 


MESE 
a Je) 


Gz: INF G,1:INF 1,16: FEN 1 


MOVE 
FRINT 
F 
MOVE 
LOCATE 18,25:FRINT"'CFC REVUE DU 


6,16: DRAUW 
TAB(CE7) 


SA, Lé 
"ANT I 
9,285: DRAW 656,285 
276 
STANDARD AMSTRAD ET 
266 WINDOW 1,86, 2,27 
294 m$="Realise par Gregory 
fées 

FOR 11 TO LEN(Cm#) 
Fh=FHIMIDE (MB, i, 1) 
LOCATE 76-1,5:FRINT 
FOR tel TO 166 

MENT tri 


SCHNEIDER" 


NOE " 
RTA TE) 
510 


TE 


RE 


196 
DU) FICHIER 


LOCATE ©, 1:FPRINT"'ENTREZ 
ut è HE LA 
2, 2e FRINT'TANT 
FAS TERMINE" 


LE NOM 


496 INFUT 
419 LOCATE 
STAGE N’EST FAS 
420 LOCATE Z,S:FRINTUNE FAS 
K LE MAGNETOFHONE OÙ NE" 
426 LOCATE 2,7: FPRINT'FAS 
DISQUETTE" 

44 LOCATE 2,10: PRINT"FRESSEZ 
QUCHE FOUR LA LECTURE" 

459 CALL SEROS 

46 OFENIN “l"+nfé 


QUÉ BE LT 
ARRETE 


SORTIR LA 


UNE T 


| 566% 


476 CLS: FRINT'TRAITEMENT EN COURS... 


" 
486 
496 
566 
Die 
PS) 
DE 
546 


J9E 


ca=t CANAL DE SORTIE 

LINE INFUTH#9,b#:a$=UFFERS (b#) 
IF cai:6 THEN GOSUR 916 

IF INFEY(66)=6G THEN STOF 


CALCUL DE LA CLE DE CONTROLE 


az 

FOR 1#1 T0 LEN(Ca#) 
1#=MID#S(a$,i,1) 
IF 1$=CHKS CE2) 
a=at+tASC(1+) 
NEXT 1 
C=INT(a/2E%) 
p=a-(cx2Zz) 

CCG CF) 

az 
FOR 
LEEMIDS# (at, 1, 1) 

IF 1#2"6" OK 1#:"9" THEN 
lLi$el1i$4+1$:arat+VAL C1) 
NEXT 

CcÆINT Ca/23) 

pra (ck:.1) 

CHeCg4+65S CF 


D 76 


586 
596% 


66 


THEN 666 


856% 
és 6€ 
&76 
6564 
& 7e 


746 


IF cai:8 THEN 750 
FRINT 11%; TAH(16&) 


ELSE 
US TNG 


77% 
LA De NN : [LI : 


li$="":GOTO 846 

L1S= "M FRINT#H#CA, LEFTS(b#, EG) T 
22) USING MéAkEt"s ce 

IF LEN(D#)256 THEN 846 

fq=i 

DHEMIDS (b$, 21, LEN Cb#)) 
FÉRINT#CAa, LEFTS(b#, 26) 

IF fgri AND caf:8 THEN +g=é: G0S 
916:G0T0 8:66 
GOTO 786 

84 IF EOF=-1 THEN 
Ü) 496% 
856 CALL SERGE: FRINT 
OUCHE, .. "is CALL SBBOS 
864 CLS: PFRINT'MAINTENANT RECHARGE Z 
MiNFSSUO ET CORRIGEZ LES LIGNES QUE 
VOUS AVEZ NÜTEES, ." 
876 END 
686 TRAITEMENTS DES ERREURS 
3% | 
900 IF ERARE&ZS THEN CLS:FRINT CHRS& C7 
 SCHRS CEA) 3 FICHIER NON ASCII"3: CHARS 
(24) : END ELSE CONT 
916 com=com+ii:IiF com:19 THEN CALL % 
BBOS: FRINT TAB(SO) "UNE TOUCHE..." 
CALL SEBBSGS: COM=I 
929 RETURN@ 


786 
796 
[SISIS] 
516 
B 26 
UE 

SRE) 
CLOSEIN ELSE GOT 


TAR(CSE) MUNE T 
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MIRAGE IMAGER version TURBO 
enfin le TRANSFERT et la SAUVEGARDE ULTRA-RAPIDES ! 


RECHARGEZ UN PROGRAMME DE 64 Ko EN 14 SECONDES ! 
APRES L'AVOIR TRANSFERE EN UNE VINGTAINE DE SECONDES 
avec la version TURBO du MIRAGE IMAGER 


LE PERIPHERIQUE QUI TRANSFERE et SAUVEGARDE 
100 % DES PROGRAMMES 


LE MIRAGE IMAGER TURBO 


CPC 464/664 : 
seulement450 FF 


Port compris 


CPC 6128 : 
seulement 500 FF 


Port et câble 6128 compris 


MANUEL COMPLET de 3000 mots entièrement en Français 


Le MIRAGE IMAGER version TURBO est disponible maintenant. 
Chez nous, la RUPTURE DE STOCK N'EXISTE PAS. 


Ses caractéristiques : 


SAUVEGARDE 64 Ko SUR DISQUETTE EN UNE VINGTAINE DE SECONDES 
RECHARGE UN PROGRAMME DE 64 Ko EN 14 SECONDES ! 
TRANSFERT K7 / DISQUETTE ou DISQUETTE / CASSETTE et SAUVEGARDE K7 / K/7 où 


DISQUETTE / DISQUETTE de tout programme protege où non jusqu'a 128 Ko (64 Ko sur 464/664) 


SAUVEGARDE K7 EN 3 VITESSES (normale, rapide et TURBO) 

TOOLKIT incorpore qui affiche les adresses, INK, PEN et autres details des programmes 
et ecrans, permettant un bidouillage acharne et intensif 

Grâce au TOOLKIT, contemplez instantanement les resultats des bidouillages effectues ! 
MODE 64 K où 128 K avec les CPC 6128 

Se branche en 2 secondes ! 

Extremement simple a utiliser gere par menus et l'on presse UN SEUL BOUTON pour 


transterer/sauvegarder recharger 

Ne prend aucune place en RAM, n'est donc pas detectable par l'ordinateur 

Tres amical, detecte les erreurs de l'operateur 

8 K RAM et 8 K ROM incorpores 

Compresse afin d'utiliser un espace minimum sur disque ou cassette 
Sauvegarde en un seul bloc (pratique pour archivage) 

Compatible avec les ROMS et cartes d'extension et permet aussi de les invalider 
Pour usage personnel 

Comporte un bus d'extension pour raccorder d'autres peripheriques 

Stoppez un jeu a n'importe quel moment, sauvegardez et reprenez le au meme endroit 
TOUS les programmes transferes fonctionnent ! 


VENTE PAR CORRESPONDANCE - Envoyez votre commande (en Français) directement à : 
DUCHET Computers - 51, Saint-George Road - CHEPSTOW NP6 SLA - ANGLETERRE - Téléphone : +44 - 291 257 80 


ENVOI IMMEDIAT LE JOUR MÊME PAR AVION dans le Monde entier (Hors Europe ajouter 25 FF S.V.P.) 


REGLEMENT PAR : 


MANDAT POSTE INTERNATIONAL : 
CPC464/664 : 450 FF 
CPC 6128 : 500 FF 


REDIGER LES MANDATS, etc... à L'ORDRE DE DUCHET Computers. 


EUROCHEQUE ou CHEQUE BANCAIRE en livres sterling 
compensable en Angleterre 

CPC464/664 : 49,95 livres sterling 

CPC 6128 : 54,45 livres sterling. 


Si vous êtes pressé, réservez votre commande EN PARLANT EN FRANÇAIS ! 


Téléphonez à Caroline, Jean-Pierre ou Didier au 44 291 257 80. 


DUCHET COMPUTERS & SIREN SOFTWARE 


51 Saint-George Road - CHEPSTOW - NP6 5 LA - ANGLETERRE - Tél. + 44 291 257 80 


EN EXCLUSIVITÉ : DES PROGICIELS SUPER CHOUETTES EN FRANÇAIS POUR AMSTRAD - SCHNEIDER 464/664/6128 


DONNEZ DU CARACTERE à VOTRE IMPRIMANTE DMP 2000 
OÙ TOUTE COMPATIBLE EPSON 
ET UN LOOK PROFESSIONNEL à VOS TEXTES, AVEC 


SIREN P RINTMASTER (150 FF Port compris) 


Le super utilitaire pour imprimantes DMP 2000 et compatibles EPSON 
Pour 150.00 FF, vous recevez le SIREN PRINTMASTER (disquette 3” 464/664/6128) qui vous offre : 


. Texte en simple, double et QUADRUPLE largeur 

. Mode inversion vidéo (caractères blancs sur fond noir) 

. Un choix de 10 fontes de caractères “toutes faites” sur la dis- 
quette ! 

4. Soulignement à g0g0 

5. CREATEUR DE CARACTERES! Créez vos fontes personnelles et 
redéfinissez les fontes existantes (en leur ajoutant des accents 
par exemple) 


SG ND — 


6. Impression de l'écran graphique quel que soit le mode 
7. Impression de tout écran texte 
8. Impression de tout écran MODE 0 en 16 couleurs différentes 
9. Tampon de 16 Koctets 
10. Compatibilité avec les traitements de texte 
11. Un emploi tres simple à la portée de tous 


SIREN PRINTMASTER, le super utilitaire en Français pour DMP 2000 et EPSON ne vaut que 150 FF port compris 


MODULE 2 pour SIREN 
PRINTMASTER 


Une disquette 3” comprenant 10 fontes supplémentaires à utiliser 
avec SIREN PRINTMASTER, donnant ainsi un total de 20 fontes “tou- 
tes faites” 

MODULE 2" 100.00 FF port compris. 


ET TOUJOURS : 
TURBO 41 6 pour formater les disquettes en 416 Koctets, 


avec son compendium de 20 utilitaires en Français 
TURBO 416 sur disquette 3” 
(64/6647 6128) 2h iasiresie 175.00 FF port compris 


DISCOVERY PLUS l'utilitaire en Français pour trans- 


ferer de K7 à disquette les “Speedlock”, “Sans en-tête”, “Conven- 
tionnels”, et les autres programmes protéges 

DISCOVERY PLUS sur disquette 3” 

(464/664/6128) 150.00 FF port compris 


SUPERTAPE 4000 (CPC 464 uniquement), l'utilitaire 


en Français pour la sauvegarde automatique K7/K7, avec 10 vitesses 
au Choix 


SUPERTAPE 4000 K7 : 90.00 FF * Disque 120.00 FF 


CADEAU ! Commandez 3 des progiciels ci-dessus et nous vous 
offrons gratuitemnt en CADEAU le progiciel PRO SPRITE (LA FABRI- 
QUE DE LUTINS) valant normalement 125 FF! 

Créez et animez des lutins que vous intégrerez à Vos programmes ! 
Un programme de démonstration est inclus pour vous assister. 
Documentation en Français. 


VENTE EXCLUSIVEMENT PAR CORRESPONDANCE - Envoyez vite votre commande (en Français) à : 
DUCHET Computers - 51, Saint-George Road -Chepstow NP6 SLA - ANGLETERRE - Téléphone : + 44 - 291 257 80 


ENVOI IMMÉDIAT LE JOUR MÊME PAR AVION dans le monde entier 
(hors Europe ajouter 10 FF par titre S.V. P.) 


RÈGLEMENT PAR : 
MANDAT POSTE INTERNATIONAL en francs 
EUROCHEQUE en livres sterling (vous faites la conversion). 


“CHÈQUE BANCAIRE en livres sterling compensable en Angleterre (votre banque fait la conversion). 


Rédiger les mandats, chèques etc... à l'ordre de DUCHET Computers. 


Si vous êtes pressé, réservez votre commande EN PARLANT EN FRANÇAIS ! 
Téléphonez à Caroline, Jean-Pierre ou Didier au 44 291 257 80 de 8h à 19h. 


££ S6 8€ 66 - Suoneai) QUVZI 


Ces programmes en Français sont Copyright DUCHET COMPUTERS & SIREN SOFTWARE. Leur diffusion commerciale même partielle sous 
quelque titre ou forme que ce soit et par qui que ce soit est formellement interdite. 


CALCULONS MIEUX 
ET PLUS SIMPLEMENT 


Le BASIC des AMSTRAD est 


un des plus puissants en ce 


qui concerne les fonctions 


mathématiques, et il est 


amusant parfois de voir des 
programmeurs qui pondent 


de larges lignes pleines de 


parenthèses, alors qu'ils 


diposaient d’un mot BASIC 


qui aurait fait tout ce 


travail ! Avec cette fonction 


non connue, le programme 


aurait gagné en fiabilité, 


en vitesse, en clarté, en 


octets ; et le programmeur 


aurait mis 20 secondes 


pour la taper plutôt que 20 


minutes de cogitations 
arithmétiques.… 
Notre but sera de vous 


faire découvrir certaines 


fonctions ‘’’inconnues’’, ou, 


si vous les connaissiez déjà, 


de vous montrer certaines 


de leurs applications que 


vous ne soupconniez peut- 


être pas. 
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Michel ARCHAMBAULT 


LES MODIFICATEURS DE NOMBRES 


C'est l’exempte type des fonctions dont 
on ne pense pas assez à s’en servir. Pas- 
sons les en revue : 


e Les entiers 


La plupart des variables numériques que 
l'on utilise sont à la fois non décimales 
et comprises entre plus et moins 32767. 
Vrai ou faux ? Alors profitons-en pour les 
déclarer « entiers ». Trois avantages : 
— Gain en mémoire (deux octets au lieu 
de cinq !) 

— Leur traitement est deux fois plus 
rapide ; qu'il s'agisse de boucles FOR 
NEXT, d'incrémentation (comptage K = 
K + 1), etc. 

— Suite à une division, pas de risque 
d'afficher des décimales stupides, du 
genre « Population = 12.1784063 
habitants au kilomètre carré » 
Comment déclarer que telles variables 
seront des ‘’entiers'” ? 

— Le signe % : A % = 20/3 : PRINT 
A L—7 

— L'annonce d'un DEFINT en début de 
programme : DEFINT E, F, I-N, Z signifie 
que toutes les variables numériques dont 
les noms commencent par les lettres E, 
F, 1, J, K, L, M, N, ou Z seront des 
entiers. Le DEFINT I-N est une habitude 
« classique », parce que | et N sont les 
premières lettres de ‘’INTEGER"’ voulant 
dire ‘’entier'’ en américain. 

— La fonction INT : INT (B/C) 


e Les réels : 


Par défaut, l'AMSTRAD CPC considère 
toutes les variables numériques comme 
étant des ‘‘réels””, c'est-à-dire pouvant 
être à la fois très grands et décimaux. 
C'est sécurisant, passe-partout mais 
encombrant. Si vous créez une variable 
INTERET, forcément décimale donc 
‘‘réelle’’, à la suite du sempiternel 
DEFINT I-N, vous vous tirez d'affaire 
avec le point d'exclamation : 


INPUT'"Taux d'intérêt:"”,l! 
Ilne sera pas confondu par la suite avec 


un « | tout court » genre FOR 1=1 TO 
20. 


LES NOMBRES ARRONDIS 


Si on veut éliminer les décimales inuti- 


les, le réflexe des BASIC ‘‘antiques’’ est 
d'écrire par exemple J = INT (N/P). Alors 
là, attention au piège ! 

— INT fournit l'entier le plus petit. 
Essayez : 


PRINT 20/3 — 6.666666 7 
PRINT INT (20/3) —6 
PRINT INT (- 20/3) —-7 


Eh oui, parce que -7 est plus petit que 
-6. En revanche À % =(20/3)— 7 

Si c'est l'entier le plus proche qui vous 
intéresse, il ne faut pas utiliser ce bon 
vieux INT mais CINT : 

PRINT CINT (20/3) — 7 : N= 

CINT (5.12)—5 


e L'usage de ROUND : 


Une merveille de ce BASIC, à utiliser 

constamment. 

Supposons N=1234.5678 

PRINT ROUND IN, 2)—1234.57 

Il arrondit au plus proche sur la décimale 

spécifiée (comme PRINT USING). 

Pour présenter sans décimales un nom- 

bre supérieur à 32767, c'est simplement 

PRINT ROUND (G). 

Et maintenant, vous voulez arrondir un 

grand nombre G non plus à l'unité près 

mais à la centaine près (approchée). 

G=654321 : PRINT ROUND(G/100)* 
100—-654300 


QUESTIONS DE SIGNES 


Souvent,. on est intéressé par la 
différence entre deux valeurs, A-B ou B- 
À, sans se soucier de savoir laquelle est 
la plus grande. On veut l'écart en ‘’Valeur 
absolue’ (toujours positive) : c'est 
D = ABS(A-B). 

Mais il est parfois utile de connaître cette 
hiérarchie pour un calcul ultérieur (nous 
verrons un exemple plus loin). C'est 
S=SGN(A-B). Si A>B—-S=1, si 
A<B—S=-1, si A=B—-S=0O. 


OPERATIONS SPECIALES 


Le signe « flèche en haut » fsignifie 
«exposant, puissance» : 512=256, 
213=2*2*2=8. Mais ce signe est aussi 
très utile pour calculer des racines autres 
que des racines carrées par SOR : 

SOR(81) peut aussi s’écrire 811(1/2), de 
ce fait pour avoir la RACINE CUBIQUE 


d'un nombre, il suffit de faire sa puis- 
sance un tiers : PRINT 641(1/3)—4 

Il est important de mettre 1/3 entre 
parenthèses, question de PRIORITES. Je 
m'explique. 

Vous savez déjà que * et / sont plus 
prioritaires que + et - : exemple 3+4*5 
donne 23 et non 35, parce que la 
multiplication se fait AVANT l'addition. 
Eh bien le signe test plus prioritaire que 
* ou /. Ainsi, 6411/3 donne 21.3333 et 
non 4. Le BASIC a fait d'abord 64 
puissance 1 (= 64), qu'il a divisé ensuite 
par 3. 

Au sommet de la hiérarchie des priorités 
se trouvent les parenthèses. Donc n’hé- 
sitez pas à les employer, même si elles 
sont inutiles, c'est plus sûr et plus clair. 
Exemple 3+(4*5) est préférable à 
3+4*5 

Voyons d'autres opérateurs d'usages 
moins fréquents mäis néanmoins très 
précieux, car leur remplacement serait 
« lourd ». 

MAX et MIN donne la valeur ‘‘record' 
d'une série de nombres. Exemple PRINT 
MAX(A, B, C, D, E, F)—-642.75 

On ne connait pas le nom du champion 
(ou du tocard avec MIN), seulement la 
valeur record. 


MOD ET FIX : ils donnent le reste et la 
partie entière d’une division. Ils sont très 
utiles pour les unités non décimales (= 
à base 10), comme les heures, minutes 
et secondes. Un exemple (listing 1). 
Attention ! MOD n'accepte que des 
nombres entiers. 
Remarque de peu d'intérêt : FIX peut 
être remplacé par l'anti-slash (barre 
oblique inversée ; touche à droite de /), 
mais on est alors limité aux entiers (pas 
avec FIX). 

PRINT 20 — 3-6 


LES FONCTIONS SUPERIEURES 


J'évoque ainsi les fonctions trigonomé- 
triques (SIN, COS, etc...) et les logarith- 
mes ou exponentielles. 

Dans le numéro 15 de CPC, nous avions 
déjà exposé les bases de la trigonomé- 
trie (‘’Les fonctions d’angles’’ page 12), 
et surtout la manière de s’en servir uti- 
lement. Aussi aujourd'hui, nous ne rap- 
pelerons que peu de choses : 

— Par défaut, l'unité d'angle est le radian 
(57,3 degrés) ; avec l'instruction DEG, 
on passe en degrés. On peut revenir aux 
radians par RAD. L'AMSTRAD CPC est 
un des rarissimes à pouvoir faire de la 
trigo en degrés directement. || renferme 
aussi le nombre PI avec 13 décimales 
(même si l'écran n’en présente que huit). 
— On dispose des fonctions SIN, COS, 
TAN et ATN. Cette dernière se prononce 
‘’arc tangente””’. C'est ‘‘tangente en sens 
inverse’, autrement dit ATN(X) renvoie 
un angle. Exemple, sous quel angle voit- 
on un immeuble haut de 25 mètres et 
situé à 100 mètres ? 

DEG : PRINT ATN (100/25)— 14 degrés 


— Curieusement, il manque ARC SIN et 
ARC COS, mais nous verrons plus loin 
qu'il est très facile de les obtenir. 


NOTA : 

Sur certaines calculatrices scientifiques, 
telle la célèbre ‘’CASIO fx-82'', les 
touches ARC SIN... sont représentées 
par « SIN! », etc. C’est absurde sur le 
plan mathématique car cela signifie 
1/SIN : C'est uniquement par manque de 
place sur ce minuscule clavier que le 
fabriquant symbolise quelque chose 
d'INVERSE par l'exposant -1. (Ceci pour 
dissiper un doute) 


e les logarithmes 


Si la trigonométrie concerne tout le 
monde (tracés de cercles), les 
logarithmes n'intéressent que la minorité 
d'entre vous traitant des problèmes 
scientifiques, en physique notamment. 
Toutefois, il faut bien dire que très 
souvent, ils exploitent des formules 
toutes faites, mais avec des souvenirs de 
lycée que l'on qualifiera de « vagues ».. 
Alors faisons le point très succinctement. 
Le LOG d'un nombre (toujours > zéro) 
fournit un nombre plus petit et qui pro- 
gresse moins vite. || y a deux races de 
LOG, les « népériens » (ou « naturels » 
ou « à base e ») obtenus par la fonction 
BASIC LOG{(), et les « décimaux » (ou 
« ordinaires » ou « à base 10») obtenus 
par LOG10(). 

Ce fameux nombre e vaut 2.718281... 
LOG{e)=1, LOG10(10)=1 
LOG(e*e)=2, LOG10(10*10)=2, 
LOG10(1000)=3 

Les logarithmes décimaux LOG10() sont 
d'un usage plus courant que les népé- 
riens. Il est bon de savoir que : 

— Le rapport des log d’un même nom- 
bre est constant : 

LOG(N)/LOG1O(N) = 2.3026 

— L'anti log népérien s'appelle l'EX- 
PONENTIELLE. 

LOG(45)= 3.807 ; EXP(3.807)=45 
EXP(1)=2.718... (c'est e) 

— L'anti log décimal n'est pas disponi- 
ble dans le BASIC AMSTRAD, mais nous 
verrons plus loin qu'il est très facile de 
l'obtenir. 

— LOG10(1)=0 ; LOG10(0)=moins 
infini. Donc le log décimal d'un nombre 
plus petit que un (mais toujours supérieur 
à zéro l) donne un résultat négatif : 
LOG10(.5)=-0.301... 

Voilà ! C'est tout ce qu'il est utile de 
savoir sur les logarithmes, non pas pour 
les examens de maths, mais pour les 
exploiter sur le plan pratique. Nuance... 


LES FONCTIONS 
PERSONNELLES DEF FN 


Super ultra important ! La commande 
DEF FN permet de compléter notre 
BASIC par des fonctions jusque là man- 
quantes, telles que racine cubique, arc 
sinus, arc cosinus, anti log décimal ; 
mais aussi des fonctions très utiles pour 
votre spécialité, électricité, chimie, sta- 


tistique, comptabilité financière, etc. 
Prenons le cas ultra simple de la racine 
cubique : 

De même qu'il existe SQRIN) pour les 
racines carrées, fabriquons CUBIN) pour 
les racines cubiques : 

30 DEF FN CUBIN)=N1(1/3) 

DEF FN est la contraction de DEFINE 
FUNCTION. Pour l'exploiter, il faudra 
écrire : 


PRINT FN CUB(1745)— 12.039 


Ce ‘FN’ prévient le BASIC que ce qui 
suit est une fonction ‘‘’maison’’ ; sans lui 
il planterait car il prendrait CUB(1745) 
pour une variable indicée, et comme il 
n'y a pas eu de DIM CUB(2000)... En 
somme, le vrai nom de notre fonction, 
c'est bien FN CUB(), défini par DEF ligne 
30. 

Un DEF FN ne peut être instauré qu'au 
sein d'un programme, pas en mode 
direct. Il n'empêche que le programme 
arrêté, on peut exploiter FN CUB() en 
mode direct. 

Un DEF FN est constitué de deux 
parties : 

— Le nom, ici CUB, suivi des paramètres 
nécessaires entre parenthèses. 

— La formule à exécuter avec ces 
mêmes paramètres. À noter que cette 
formule peut utiliser des fonctions per- 
sonnelles déjà définies en amont. Ces 
formules peuvent donc être très 
complexes. 

Et maintenant passons à des exemples 
concrets. 


DEMONSTRATIONS DE DEF FN 
(listing 2) 


e Consommation d'essence 
(lignes 20 à 80) 


La formule du DEF FN ligne 30 utilise 
deux paramètres ; il n'empêche que nous 
l'exploitons ligne 70 avec d'autres noms 
de variables. Ce qui importe, c'est l’ordre 
dans lequel on les donne (ici distance 
puis litres) ; exactement comme dans les 
fonctions BASIC classiques. 
Remarquez notre ROUND de la ligne 70 
qui arrondit le résultat sur la première 
décimale, car 9.7621342 1/100 km 
serait quelque peu grotesque... 


e Volume et diamètre de sphères 
(lignes 200 à 300) 


Deux DEF FN, l'un pour obtenir le volume 
connaissant le diamètre, et l'inverse qui 
donne le diamètre connaissant le volume. 
On est parti de la fameuse formule 
V =quatre tiers de PIxR*. Exemple, dia- 
mètre en cm d'un ballon de 1000 cm* 
— 12,4 cm. 

Si ces calculs étaient fréquents dans un 
de vos programmes, vous auriez été 
tenté d'utiliser un GOSUB vers un sous- 
programme d'une ligne : avouez qu'un 
FN rend le listing plus clair et aussi plus 
rapide. 
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ZA 


+ Calculs de remises 
(lignes 400 à 510) 


Tel fournisseur vous accorde une remise 
de 22 % sur le prix fort hors taxes, sur 
lequel vous devrez appliquer la TVA de 
18,6 %. Ces deux FN simplifient une fois 
pour toutes ce casse-tête. 

li est important de noter que le second 
DEF FN (ligne 430) utilise le FN défini à 
la ligne précédente ! Une astuce de fai- 
neant.. Là encore, remarquez nos 
ROUND des lignes 490 et 500 qui arron- 
dissent au centime le plus proche. Dans 
ces deux lignes, nous avons encore 
modifié nos noms de variables, mais ils 
sont entrés dans l'ordre pré-établi aux 
hgnes 420 et 430. 


° Arc sinus et cosinus 
(lignes 600 à 710) 


Certains les attendaient depuis un 
moment... Pour obtenir les deux formu- 
les des lignes 630 et 640, j'ai utilisé le 
bon vieux théorème de Pythagore et la 
loi des triangles semblables. Calculatrice 
scientifique en main, vous pourrez véri- 
fier l'exactitude de ces deux FN. 

Pour l'anecdote (comique) vous compa- 
rerez ces deux lignes aux deux pages de 
programmes (avec organigrammes |) 
parues dans une certaine revue d'avril 
87... (page 130) 


NOTA : 


Pour sinus = 1 ou cosinus =0, l'écran 
signale ‘’Division by zero'', mais avec le 
bon résultat (angle 90°) et sans 
planter. 


e Anti log décimal 
(lignes 800 à 880) 


La formule de la ligne 820 est très sim- 
ple. Pour notre démonstration, vous 
entrez un nombre positif quelconque, 
l'écran affiche son LOG10, puis calcul de 
l'anti log qui aboutit au nombre que vous 
aviez tapé. 


e Une bonne habitude à prendre 


Vous programmez souvent dans un 
domaine qui vous est cher, et de ce fait 
vous allez créer une série de DEF FN très 


22 


personnels, très spécifiques : 
rassemblez-les dans un sous-programme 
commençant par un numéro de ligne 
élevé, 40000 par exemple, avec bien sûr 
un RETURN en final. Puis SAVE''FN'", A. 
Vous le joindrez à un programme nou- 
veau par MERGE ‘‘FN''". Au début de ce 
programme un GOSUB 40000, et vous 
voilà avec un « complément BASIC spé- 
cial ». J'adore les astuces pour fai- 
néants. Et vous ? 

Petite remarque hors sujet : DEF FN est 
aussi valable pour créer de nouvelles 
fonctions chaînes. 


LES PUISSANCES DE DIX 


Pour les nombres très grands ou très 
petits, il est fastidieux de compter les 
zéros, qu'ils soient avant ou après le 
signe décimal. 

En physique, où le cas est courant, on 
simplifie l'écriture par les « puissances de 
10 ». Ainsi 5009 peut s'écrire 5.10%. En 
effet 10% = 10 x 10 x 10 = 1000 ; l'expo- 
sant 3 donne le nombre de zéros après 
le 1 de 10. Exemples pratiques (et à rete- 
Nils) 

10*-millions, 10°-=milliards, 10 °- 
millièmes, 106=millionièmes (ou 
micro) ; 10° milliardièmes (ou nano). 
8,5 10'-85; 8,5 10°-8,5; 8,5 
10'-0,85; 4,12-0,041. On peut 
donc aussi dire que l'exposant repré- 
sente le nombre de ‘’crans'’ dont il fau- 
dra déplacer le signe décimal. 

C'est ce que les notices de calculatrices 
appellent la « notation scientifique ». 
Sur les micro-ordinateurs ce « 10 » est 
symbolisé par la lettre E. Exemple 2,34 
10° (2 milliards 340 millions) donne 2.34 
E +9. 

Le CPC affiche au maximum neuf chif- 
fres (les zéros compris) ; s'il n’a pas la 
place, il passe en ‘’notation scientifique” 
mais avec UN SEUL CHIFFRE avant le 
point décimal. Ainsi pour 34 milliards, il 
ne va pas afficher 34 E+9 mais 3.4 
E +10. Et n'espérez pas l'afficher en 
entier avec un PRINT USING avec 
douze #… 


LE PIEGE DES .999 


Un ordinateur calcule sur un certain 
nombre de chiffres (une quinzaine), aussi 
à la suite de certains calculs, il peut 
fournir 7.99999999 alors que 
logiquement, vous étiez en droit 
d'attendre 8.000000. C'est le cas avec 
des ‘’réductions'’ de nombres telles que 
soustractions, divisions, racines carrées, 
etc. 

Si vous n'avez pas pris vos précautions 
avec CINT, ROUND ou PRINT USING, 
cela peut avoir des effets 
catastrophiques sur écran ou sur 
imprimante : vous aviez réservé la place 
pour un résultat entier de 3 chiffres 
maximum, et vous voilà avec 9 chiffres 
+ un point décimal, soit 7 ‘’cases'' de 
déplacement, et tout çà pour un résultat 
numérique ‘‘approché‘. 

Autre désastre possible en 
programmation, du genre IF R=8 
THEN.., qui ne s'exécutera pas avec 
R=7.99999... En voici la preuve 
(listing 3). 


Si on supprime la ligne 120 et qu'en ligne 
130, on demande PRINT ROUNDIN, 2) 
nous aurions les. valeurs attendues saut 
la valeur zéro toujours pas atteinte. 
Ce piège est au sommet de la traîtrise car 
nous venons de voir à l'écran que tout 
peut très bien se passer pour certaines 
valeurs numériques ; donc un 
programme peut planter après des mois 
de fonctionnement correct... 


: Jean-Luc AULNETTE 


Illustrations 


Conseil : lorsque vous guettez un certain 
résultat, essayez d'éviter le signe égal, 
mais plutôt < ou>. Exemple pour 
guetter N=0.75, programmez l|F 
N>0.74 THEN... 


LE HASARD PROGRAMME 


Pour tenter la fiabilité d'un programme 
de calculs, on utilise parfois les nombres 
aléatoires fournis par RND. Cela nous 
amène à déclarer que la roulette est 
truquée | 

RND donne ün nombre de neuf chiffres, 
nombre supérieur à zéro et inférieur à 1 ; 
donc sans jamais atteindre O ou 1. 

Si vous avez une imprimante, faites un 
RESET du mic:o (CTRL-SHIFT-ESC) ci 
tapez FOR N-:1 TO 9 : PRINT # 8, RND : 
NEXT 

Nouveau RESET, puis de nouveau cette 
ligne. Vous constatez alors que les deux 
suites de nombres sont identiques ! RND 
ne fait donc que lire des DATA en ROM, 
remplis de nombres ‘’mélangés”'. 
RANDOMIZE(D) est l'équivalent d'un 
RESTORE D : on pointe plus loin et on 
lit (D > 5). Pour que les dés ne soient plus 
pipés, je préconise. 

FOR N=1 TO 9 

RANDOMIZE(TIME) 

PRINT RND 

NEXT 


à 
Mieux encore : avant 74 D \ 
le NEXT, mettez un S 1 
CALL & BB0O6 LEE € 
(— attente d'une tou- 4 EQ D 
che) pour que TIME 9) NS 
soit vraiment aléa- 1 % 
toire, et par consé- 3 STE 
quent RND. (5 e 
Pour obtenir des nom- 
bres compris entre 1 


et 49 (le Loto. )il 
faut programmer : () 1 
PRINT 9 A 7? 
CINT(RND * 48) +1 ? 


296 ‘ VOLUME ET DIAMETRE DE 


Rappelons que CINT arrondit à l'entier le 
plus proche. Avec RND*49, on aurait eu 
des nombres entre O et 49, ce qui ne 
sera pas le cas avec (RND*48) +1 
Puisque RND a neuf chiffres après le 
point décimal, il y a peut-être des cen- 
taines de valeurs de RND qui vont con- 
duire au même nombre, 28 par exem- 
ple : 0.2814... ; 0.2782... ; etc. 

Pour un programme faisant votre LOTO, 
il faudra donc éliminer les doublons. En 
voici un, garanti super aléatoire ; donc à 
proposer au Casino de BRUZ... (listing 4). 
Remarquez les lignes 80 à 100 pour reje- 
ter les doublons. 


CONCLUSION 


Nous espérons vous avoir montré la puis- 
sance de calcul de votre CPC, et comme 
il est facile de lui faire exécuter rapide- 
ment les opérations les plus rebutantes. 
Cependant, il fallait aussi vous mettre en 
garde contre des réactions bêtes et 
méchantes d'un micro-ordinateur si puis- 
sant soit-il. 

Au fait... Si jamais le dernier listing vous 
faisait effectivement gagner au LOTO, 
vous voyez ce que je veux dire. (j'ai 
bien le droit de rêver, non ?). 


?6J< 
UH< 


SPHERES ?CC< 


216 CLS:PRINT'VOLUME ET DIAMETRE DE SPHERES (6=fin)":FR RD< 


INT 
220 DEF FN VSPH(D)=PI#(D/2) 34/3 NVE< 
239 DEF FN DSPH(V)=((3#V/P1/4)* (1/3) #2 F4 
240 INPUT"DIAMETRE de la SPHERE : ",D RG 
250 IF D=0 THEN 400 >CH< 
A g8e | 269 FRINT “VOLUME =";FN VGPH (D) : PRINT FI 
TE oce| 276 INPUT*VOLUME de La SPHERE : ",V >PK< 
30 INPUT'TOTAL MINUTES ", Te IF TM>32737 THEN 30 AD IP ER TOME SUR" be 
46 PRINT FIX(TM/60) ;"H"; TM MOD 69; an" HEC | A PRINEBIMETRE REC DEMEURER aus 
50 PRINT:G0TO 30 T4 Hé te ?ND 
399 >HYé 
406 ‘ PRIX TTC avec REMISE >PE< 


19 "DEMO de DEF FN-M.A. 5/87 


26 CLS:PRINT"Consommation d'Essence (9 pour quitter)":P ?VC< 


RINT 
36 DEF FN CONS (K,L)=169#L/K 


49 INPUT'Litres de Plein a Plein : “,LPP 


30 IF LPF=Q THEN 209 


66 INPUT'Distance entre ces Pleins : ",KM 
76 PRINT ROUND(FN CONS (KM,LFP) ,1);"litres aux 199 km"  ?NH£ 


416 CLS:PRINT'CALCULS de REMISES ( pour quitter)":PRIN 3TF< 


T 


420 DEF FN HTR(P,R)=P#(100-R) /100 
430 DEF FN TTR(P,R,TI=FN HTR(P,R)#(1+(7/109)) 
440 INPUT"Prix fort HT : ",FHT 
450 IF PHT=0 THEN 66ÿ 
468 INPUT'Remise 4 sur Prix HT : ",RHT 
5J8<|470 INPUT"Montant TVA % : ", TVA 
480 PRINT TAB(8);"PRIX APRES REMISE :" 
496 PRINT “prix HT =";ROUND(FN HTR(PHT,RHT),2);"F" 


?LG< 
>THK 
>EJ< 
?PK< 
PUL< 
?GM< 
?N< 
»DP< 


>MD< 1569 PRINT "prix TTC ="3;:PRINT ROUND(FN TTR(PHT,RHT, TVA) >RF< 


>EE|,2;"F" 
>DF<|510 PRINT:G0TO 440 
>LEX [599 


680 ‘ ARC SINUS ARC COSINUS 


>NG< 
?YAK 
>DG< 
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619 CLS:PRINI"ARC SINUS & ARC COSINUS (9 pour quitter)" ;YH£ [66 CLS:PRINT"FOR N=1 T0 6 STEP -9.65":PRINT JG 


: PRINT 76 FOR N=1 TO 9 STEF -6.45 >EH< 
626 DEG ERJE 186 PRINT N:NEXT >PJ< 
626 DEF FN ASIN(A)=ATNA/SUR (1-A#A) à 2DK< [99 PRINT" non atteint : FRESSEZ UNE TOUCHE":CALL &BB06 UK 
649 DEF FN ACUS(A)=-96#(SGN (A) -1+SGN (A) #ATNISQR(-1+1/A :XLE 

/A)) 199 CLS:PRINT"'FOR N=1 TO 6 STEF-,95 avec N=ROUND(N,2)" >AE* 
659 ‘ en RAD remplacer le -96 par -(FI/2)dans le DEF FN :XM< 

ACOS (A) 119 FOR N=1 TO 6 STEP -6.45 sYC< 
b6ÿ PRINT: INFUT "SIN =",5:1IF 5=9 THEN 660 >NN€ 1125 N=ROUND (N, 2) #MD< 
676 IF ABS(S):1 THEN 660 | 26F< [136 PRINT N:NEXT 2ME: 
680 PRINT "ANGLE= "3; : PRINT USING"###.## degres";FN ASIN( >PQ£ 1149 LOCATE 15,12:FRINT"C est enfin correct" #YF< 
Si 159 CALL &BB66:CLS BG 


690 PRINT: INrUI “COS -",C:1F C=9 THEN 806 ELSE IF ABS(C ;:HK: 
)>1 THEN 696 
766 PRINT "ANGLE="; : PRINT USING"###.## degres";FN ACDS{ :JH: 


C) 

719 GOID 666 >AJ4 E 

 — | LISTING 4 

809 ‘ ANII LOG DECIMAUX (ou a base 10) NI pe 

819 CLS:FRINI"ANTI LOG19 (à pour quitter) ":FRINT >Dk : 

420 DEF FN ALUG(L) EXP (LaLOG (19) ) >VL 

836 INFÜI “Noubre :6 : ",N:IF N-ÿ THEN CLS:END >EM: 

A Hi AN Lio SUPER LOTO - Ma. 5/87 >KE: 

008 AÉPDAUMNE © PS 26 CLS:DEFINT A-N:DIM K(7) | HEC 

800 PRINT TAB()5"LOG10(";N; "="; X °2S 36 LOCATE 11,4:PRINT SUPER LOTO" »VDé 

879 PRINT "ANTI LOG de";X;"=";FN ALOG(X) PNR€ | FOR Ni TO 7 DBE< 

880 FRINT:G0TO 830 PETE lég RANDOMLZE (TIME) >TF< 
6@ A=CINT (RND#48) +1: K (N) =A >EG< 
76 ‘ Elimination des Doublons ?HH< 
86 FOR J=1 TO N-1 >DJ< 
90 IF A=K(J) THEN J=N-L:N=N-1 3ME< 

L | ST | N ( …] 3 199 NEXT >EB< 

116 LOCATE 1i,12:FRINT "Fressez une Touche":CALL $EHG6: WC 
CLS 
120 NEXT »GD< 
129 ‘ RESULTATS »BE< 

1 Le FIEGE des .99999 >YB< [149 LOCATE 11,9:FRINT “pour gagner au LOTO" 2MF< 

29 CLS:PRINT'EUR N=û TO 1 STEP 0.05":PRINT >FC{ [156 LOCATE 8,12:PRINT "JE VOUS CONSEILLE DE JOUER :":LO >0G4 

9 FOR N-0 T0 1 STEP 0.05 >YD< [CATE 6,15 

49 PRINT N:NEXT KE: [160 FOR N=1 TO 7:PRINT USING ####" 3 k CN) 5: NEXT: PRINT: PRI >HH£ 


96 FRINI"1 non atteint : PRESSEZ UNE IOUCHE":CALL $BB66 >QF< [NT 


Argh ! Je n'en crois pas mes yeux : 3 jeux, 2 


L4 F3 TT . . 
Le hors-série ne sent dan” 
r Mon abonnement à "Jouer-garçon” attendra ! 
numero 5 | 
de CPC 


est sorti! 
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LIMITE DE 
VITESSE 


BORNES 


LIONEL GARDEUR 


Il n’est pas nécessaire de présenter longuement 
ce célèbre jeu de société. La version 
informatique applique les règles officielles. Les 
initiés ne seront donc pas dépaysés, les autres 
trouveront toutes les explications à l’intérieur du 
programme. 

Chargement : tapez le listing 1 et sauvez-le. Ce 
programme vous servira à entrer, vérifier et 
sauver les codes binaires du listing 1 bis. Les 
listings 2 et 3 seront enregistrés sous les noms 
respectifs ‘MILLE’ et ‘1000’. 


| 


45 MODE 2:INK 4,13:BORDER 13: INK 1,0 
50 * 

60 debut=33000 

70 FOR i=0 TO 891 

8à somme=Ù 

90 PRINT debut+1#8;" "a 
190 FOR j=0 TO 7 

119 GOSUB 270 

129 b$=a$ 

13 GOSUB 270 

149 a$=b$+a$ 

150 PRINT “ "s 


20 ‘ chargeur hexa 
% ‘ 
49 MEMORY 32999 


169 =VAL ("4"+a$) 

170 POKE debut+i*B+j,a 
180 somme=s0mme+a 

199 NEXT j 


260 INPUT " “en 

210 IF n<>somme THEN PRINT "Erreur":60T0 8û 
220 NEXT i 

230 ‘ 

240 SAVE "DATA",b,33000,7130 

250 END 

260 ‘ 

270 CALL &BBBA 

280 a$=INKEYS$:IF a$<>"" THEN 280 

290 a$=INKEY$:IF a$="" THEN 290 

300 b=ASC (UPPERS (a$) ) 

310 IF b<48 OR (b>57 AND b<é65) DR b>70 THEN 280 
320 PRINT a$; 

330 RETURN 
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1000 BORNES 


N— 
mom 


RARRES SES RRRRRRIRRIRIRIRRRIRRRRICERRREBEIRIRRRIARIRIRREOBINR LIRRIIIRORIIIRE 


m 


88838 
DOBBBBEBRICOBSORRRIBBRRBIRESOSEIRIIIRRIIRIIRE 


RRRIRRRRIIR IR 


RRIIIBLEIRRRRIRRRRRRRRIRIRR ARRERGRERE 


le] 
& 


dadanSax RR8RO0C0000 


SR 


AIT ARARARRIRRRARARIBNNNNATGARIIRIRRERRNBRIBRBEINNARNIRINIINRRRIINRNINRRNNIIRNIIRRRARR CIRBRRRBRQGANLEN 


1E 


D'IRARIRIAIAIRIIRRIRRRIIRRARRIIIRRRRRNRRINRARRRBENERBBBOBINNIIINNNRININBBBERIRREREN RRRBSSSCINIANRIQQ 


m 


RRROUHHHH 


BRBRRRIRRRIRRRRRREGIRERRRES IR RRRSIRSERIIIRRIAR 


8888885 


888 


RRRRRRRIRIRRIRRIRRIRIRERIRIRINIRIRBIREE 


D'RERIRIERIRRRIRRIRRRRIRNRIRRRIRPINRRRRRRILELSIRIRS 
TARA A ARIARRGIFIIARRARRANANARRARRIIRRARRRIGLRRENIRANNNNARIBOBRRBOBBBBENRANNRANNNIOBESAN SBOIRIRRRIIIIGGNG 


07 


BLRRERSSREER RRRIBIRERRERRIRARR 


B888888RRARIRGS 


o 
> 


08 


m 


SRRQTHAHE 


ZRIBEN 


8LLL 


RRTABSEERMREIRRRIIRRRRRRRRRIRIRIIIRPRIRE 


ROUGSS RRRRRTSIZ AS USBOGTODRRLRRIIIEEE 
RARRRRRRGIITORTI GRRRARARIRARIRIRTIRRIRIRIRIGIRERONHENANNRBINIRINTINIENANTIINIRIRISIES 


AAATAATIDARIRAIAIRAEBBHE IARRIRANITNANIRINRRIRRNRIRRNTRRINRINRANRARRANNNIAPARAPAUTITTIIIU FIG 


RRIRIQIIIIALIIIIIT TIR RIIIRIIOS 
RRRRIRCSOITRRITIAA1TITIS 
DOBSTOTITORRIRIRIRIRIRARL 


RRRRIRÉGZA GRR T 


SRRRTIBSTE 


A5 


El 


FRRRRRRIRRAGRGMRRIA1111111TONRANR 


FARIRRIINAIRIANIRIRRARRANRNNRANANRANRIN FRRINRINRIANINRINNINRNAIRIINIIRIQUMAGQN 


RRRRRERRRRRRERRRRRRRRIRIRRIRRARRRIIRIIRRAELIAS 


CEE EEREELEEE 
RRRRIRRRERIRRIRRRRIRRIIRRIRERE 


RER ELEECECEEECEEEERECERENREEEETS 


m 


DRSSRAR 


SAIS TIITIT TERRIER 


m 


84 


IE 


BIRRIRRERRRRRIIRIRRRIRRRIRRIIIRRIRIRRIRIRR RIRRIRTILUNS 


HHHAT 


m 


BRIRAAIRRIRRARRRIRIINIRIRRIRRRRARRIRRIR RRIRRRIRRARGMNNTIAIATITADIRIIRGIAN 


RRRRRRRRRTTRTSTD RAR RARRIRIRRRIRRRRRRRIRIRIRERRRIRPRIRIRRRER 


RISDTRITREIRERIRIRRRRRRRIRERRRIRRRRIIRRRIRRRRR APR 


TRARAGAMSIQOIMARAQANTIRRANARNIIRRNNNIRANNANINANNNNNRANINANINRNENANANARRNNANANINARANANNINRNRNINRARRARIN 


FRRRRRRRAE 


m 


GAS IG 


RRRRRRRRRRERRRRII 


CÉPRÉBRERERRELESCECEEECE EE LEE 


RORARRGERERRIRRIRRRIRRRRIRRRIRIRRRRRIRRIIRRARRAE 


SOIR RANAMSIOTIRRRANAMTIDTIABIANRARIARIRARRARIRIIIIRRRININNRINRRRRRRR NORRRRTRAGE D 


m 


BRRARAMRIOTHANRANIMTIOQUES 


m 


C3 


RAR INTER RRRRERIRRRRRIRIRRRIRRRIRRRRRRRIRIRRR IRIS 


IE 


CEPELEEE) 


RRRT 


o 
& 


RRIRIRRRRIRIIUIRTON 
ÉPEPÉLRERERERERPELCEECECERLLERE LEE LEEE EE EEE ETS 


NOHHHMHHMDHNNNN NU YU — 
RRAI32222200071112888n 


8939939 


m 


ÉFEÉLCLELE 


m 


LRÉLERSEEE EE ELLE L'ESER 
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28 


40 


8858888338888388388238994 


N — 
oo 


40 


70 


B'558BS888888E80888835B8SB8BSSDLLUESRSCRRRSRRSERERSREBRBRBRRERTHANAARABENNNS SONAMTAIONAURAQ 


88835553883885888888 


RARBSBSSBESSSLBSSEBS TER AINRBESSSBSSBSSEST BRIOU NM RANANT 


888883388885523888RA8 


888588888883585808 


83888883888888 


Oo > 
oo 


8388888888 0868898288 282282888882 202822LESLAILIENSSNNNNNSIGSSSLE 


8388888888388888R8%88 38838382882288888 


00 


CRE 


BIAT1IARESISSSBSSSSSSSEUCSSSELESES SRELAMTAUGT 


RARBE 888530 8888888802AINRBSSSEUUILSLSSEUBAIRSES 


38944 08 FF &B 00 O0 O0 O0 O1 400 33544 
38252 08 77 Œ 00 00 O0 O0 O1 332 33552 
38960 08 33 ÆE 70 EO O0 O0 O1 634 33560 
38968 08 11 FE FO FO 80 00 O1 #8 39568 
38976 08 O0 FC 80 10 CO O0 O1 597 38576 
38964 08 00 70 BO 10 EO O0 O1 489 39584 
38992 08 00 70 CO 3 EO O0 O1 5s 38592 
39000 O0B 00 CO EO 70 30 00 O1 55 33600 
39008 08 00 CD 70 EO 30 O0 O1! 585 33608 
39016 08 00 CO 20 40 30 00 O1! 345 3%16 
39024 08 00 CO 20 40 30 00 O! HS 33624 
393032 08 00 OO 10 80 30 00 O1 393 39632 
39040 08 00 CO 10 80 30 00 O1 393 39640 
39048 08 00 60 10 80 60 00 O1 #5 33648 
39056 08 00 60 10 80 60 00 O HS 32656 
39064 08 O0 30 90 90 F3 O0 O1 58 33664 
39072 08 00 10 FO FO F7 68 O1 &æ8 33672 
39080 08 00 00 70 EO 77 CC O1 68 39680 
39088 06 00 00 00 00 33 EE O1 298 38688 
39096 08 00 O0 00 O0 11 FF O! 281 39696 
39104 08 00 O0 00 O0 O0 FF 89 400 39704 
39112 08 00 O0 00 O0 O0 77 Œ 332 39712 
39120 O8 00 O0 O0 00 00 33 EF 298 39720 
39128 07 OF OF OF OF OF OF Œ III 39728 
39136 00 08 05 07 OF OF OF OF 80 39736 
39144 OF OF OŒE 08 00 00 00 0 39744 
39152 00 00 O1 38 3% 20 40 © 393 39752 
39160 80 00 O1 28 AO AO AO AO 809 39760 
39168 80 00 O1 38 30 20 AO © 617 39768 
39176 90 60 O1 28 3% 20 AO CO 745 39778 
39184 80 00 O1 28 20 AO 40 A0 585 39784 
33192 60 00 O1 08 O0 00 O0 O0 137 39792 
32200 00 00 O1! 18 © 90 60 70 569 38800 
33208 00 00 01 O8 90 50 50 40 377 39808 
33216 00 00 O1 O8 90 DO 60 6 553 316 
33224 00 00 O1 08 90 50 60 40 393 39824 
33232 00 00 O1 08 90 50 50 70 425 39832 
33240 00 00 O1 7F Œ 00 O0 O0 332 33840 
33248 00 00 O1 38 ÆE O0 00 20 330 39848 
39256 00 O0 O1 19 FF O0 O0 40 345 39856 
33264 00 00 O1! O8 FF 88 00 & 528 39664 
39272 EO O0 O1 O8 77 CC 10 50 652 39872 
39280 FE 00 O1 O8 33 EE 20 31 633 39680 
33288 FC CO O1 O8 11 FF 50 73 %O 33888 
33296 D8 CB O1 O8 O0 FF 83 FO 1099 39896 
33304 90 CB O1 08 O0 76 72 FF 640 39904 
33312 B2 60 O1 O8 O0 20 FD FF 655 39912 
33320 F6 60 O1 08 00 50 FB FF 99 39920 
33328 E4 680 O1 O8 O0 B3 F7 FF 1046 39928 
39336 FO O0 O1 08 10 72 FF FF 889 33938 
39344 80 00 O1 08 20 FD FF FE SG 33944 
39352 00 00 O1 08 50 FB FF FD 648 39952 
39360 00 O0 O1 08 F7 F7 FF FB 1009 33960 
39368 88 00 O1 18 FO FF FF F7 1158 39968 
39376 CC 00 O1 18 FD F7 FE 33 1034 39976 
33384 EE 00 O1 18 FF FB EC 11 1022 39084 
39392 FF 00 O1 18 FF FB C8 00 68 33982 
39400 FF 88 O1 18 FF FB 80 O0 1050 40000 
39408 77 CC O1 18 F7 FA 80 O0 973 40008 
3M16 33 EE O1 O8 71 EB 60 O0 771 40016 
39424 11 FF O1 O8 10 FO O0 O0 537 40024 
39432 00 FF 69 08 O0 O0 O0 O0 400 40032 
39440 00 77 CD O8 00 00 00 OO 332 40040 
39448 00 33 EF O7 O OF OF © 357 40048 
39458 OF OF @ŒE 00 O8 05 O0 O0 57 40056 
39464 00 00 00 O0 O0 00 00 OO  O 40064 
39472 00 00 00 00 O0 00 00 © 0 40072 
39480 00 00 00 00 00 00 00 © 0 po 
39488 00 00 00 00 00 00 00 %  O es 
39496 O0 00 00 00 00 00 00 O0 © 0102 
39504 00 O0 00 00 00 00 00 0 © 40112 
33512 00 O0 00 00 O0 00 00 © © 40120 
39520 00 O0 00 00 00 00 00 0 © 

33528 00 O0 O0 00 00 00 00 @ © 40128 
33536 00 00 00 00 O0 00 00 OO © 


1ä 
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‘#-- Mille Eornes 
INF 1,0:INK 9,9:BORDER 9: INK 2,26: INK 3,6 
‘#-- initialisation des variables 

MEMORY 32999 

DIM ms(196) ,ve (106) ,ad(168),c(4,7) 


88388838888388888888888388888833 
838888888888888883888888888888888888 


© 
8B55 IR 8L8UTRATRIZBISSSSIISSB SIT IS DIT ECRAROSSSSSSSESSESSESSSSSSSSSEESESSESSE 


0! 
2 
17 


DIM tot(2},pt(2},#1(4),#2(2),#3(4),f4(4),#5(7), f4(2) 
,77(2),#8(2),f9(21,#14(2),#110(2),#12(4),#13(4),#14(2),f 
15(2),#16(2) ,pc(7,2) ,pec(7,2) 


DIM n$(4),r(10,2),r$ (10,2) 


R288888888888388888888888888888388888 


BBUIBRISISBADABNBSBESISIESSSSNERSISIBURIRSSESSESESSSESSESSESSESSESSESS8888 


BRT388RGERISSSR2$888 


?RE< 
2FC< 
?ED< 
UE“ 
JF 
2XG< 


#XH 


883833888838833888888888888888388388 
838333838835888388888888888838388 


BENSS8888888888888888888888888888888 


BHÉIDRRSSTIRRABBRABSBLESSISOSBSSBSESSSZ 


85 


000000000000000000000000000000000 


286 


84 pp=ûip}=i FE 
9ù n$(1)=""in$(2)="Max"in$(4)=" Sam" ?FK£ 
199 spat=" ' :KB* 
119 ad(ui=39468 FVC< 
129 FOR i=t T0 19:F0R j=1 TO Zirii,j)=@ir$(i,J)=""iNEXT :2D< 

ji 

138 FOR i=1 TO {hsadti)=37522:vc(1)=1S:NEXT : :EE* 
149 FOR i=11 TO 20:ad(1)=36876:vo(i)=16:NEXT 1 FYF< 
158 FOR i=21 T0 Z6:ad(i1)=37199:vclii=i7iNEXT 1 ?BG* 
168 FOR i=31 TO 42:ad(i)=36553:vc(1)=18:NEXT 1 >AH£ 
179 FOR i=42 T0 46:ad(i=362%0:vc(1}=19:NEXT 1 3BJ< 
186 FOR i=47 TO Slsad(i)=24292:ve(i)=2iNEXT 1 BYE< 
196 FOR i=52 T0 S5:ad(i)=23969:vc(1)={9:NEXT ÿLL£ 
296 FOR 1=56 TO 58:ad(i} 235323 ve (= 4NEXT i sUC< 
219 FOR i=59 T0 6i:ad(1)=33000:vc(1)=3:NEXT i >GD: 
226 FOR i=62 TO b4:ad(i=33646:vc(i)=SiNEXT : :1E< 
220 FOR i=65 T0 78:ad(i)=34615:vc(1)=1:NEXT 1 :BF< 
246 FOR i=79 T0 B4rad(i=35907:vc(1)=9:NEXT ;UG< 
25ù FÜR 1-85 T0 7O:adt1)=84958: ve (1) =/2NERT 1 FH: 
us FOR i=91 TO é:ad(i)=35261:vc(1)=6NEXT i ?GJ< 


270 FOR i=97 T0 192:ad(i)=35584:vc(i)=8:NEXT 1 2PK< 


280 ad(193)=38168: ad (104)=38491 : ad (105)=38814: ad(196)=5 >AL< 
9137:ad(107)=37845: ad (10B)=39460: ve (103)=13: ve (104)=12: 
ve(105)=14:vc{16)=11 

299 pc(i,1)=31:pc(1,2)=21 LME 
309 M ne ee #KD< 
310 potz,ti=31i:pc(3,2)=15 ?LE* 
329 a Ai 
336 pc(s,1i=31:pc(5,2)=9 UG< 
346 pciéb,l)=36:pc(é,2)=9 :CH£ 
356 po(7,1)=9:pc(7,2)=i1 PYJ< 
36% pec(i,1)=32:pec(1,2)=20 EK< 
370 pcc(2,1)=37:pec (2,2)=20 3NL< 
380 poc(3,1)=3%:pec(3,2)=14 >PM< 
390 pcci4,1)=37:pcc(4,2)=14 AE 
466 pcc(5,1)=32:pec(5,2}1=8 #ME< 
418 pcotb,i)=37:pcc(6,2)=8 3WF£ 
426 pcc(7,1)=19:pcc(7,2)=10 JG“ 
430 FOR i=i TO 2:tot(1)=G:NEXT >YHE 
446 GOSUB 4169 #DJ* 
459 RANDOMIZE TIME LK£ 
46 ‘*-- init, variables avant une partie FRLE 


470 FOR i=1 TO 2:ptlil=0:f2(i)=6: fh(1)=0:#7(1)=0:f8(1)= :CM£ 
G:f9(1)=0:F1001)=6: #11 (i)=0: F14(1)=0: 19 (1)=0: F16(1)=0: 

NEXT 

480 FOR i=1 TO 4:f10i)=0:#3(1)=0:f4(1)=0: f1201)2=0: #13 (1 VN£ 
}=Q:NEXT 

490 FOR i=1 TO 4:FOR j=1 TO 7:c(i,j)=0:f5Cj)=0:NEXT 3,1 >GP< 


394 nbcj=0 ?QF< 
510 ‘+-- melange des cartes ?BG* 
5206 FOR ii TO 196:ms(i)=Q:NEXT i 2TH 
530 MODE ! >MJ< 
548 LOCATE 1,2S:PRINT “je melange les cartes,patientez. ?GK4 
590 FOR i=i TO 166 3JL< 
56% a=INT (RND#196)+1 ?GM< 
570 IF ms(a)€>6 THEN GOTO 560 ELSE ms(a)zi ?GN€ 


1000 BORNES 


986 CALL 49060, INT (RND#37) +1, INT (RND#29) +1, ad (ms (a) ) >1P< 
999 NEXT i ?YQ< 
696 MODE 1 >KG< 
616 PLOT 465,1:DRAW 465, 400 >HH£ 
626 FOR 1=i TO 6 ?BJ< 
638 FOR j=1 TO 4 >BK< 
848 nbc j=nbc j+1 DL 
658 c(j,1)=ms(nbc)j) AM: 
bb IF j=1 Le Le nee L,pcti,2),adic(j,i))  :FN< 
670 IF vetc(,1)):19 AND velc(3,1))415 THEN fi£(ve(c(j, >AP< 
1))-10)=) 

689 NEXT J,1 *BQ* 
698 ‘ Jeu 2NR£ 
760 p=pp+i RH 
719 LOCATE 31,7:PAPER Z:PRINT spa$:LOCATE 22,7:PRINT n$ UT 
(p):PAPER 0 

729 IF INT(p/2)=p/2 THEN c=2:adv=1 ELSE c=1:adv=2 #XFE 
720 IF nbcj<iëé THEN CALL 46964,35,1,ad(197) ELSE CALL ?DL4 
46000,35,1,ad(108) 

749 nb$=STR#(196-nbc j) :nb$=RIGHT$ (nb$,LEN(nb$)-1):1F nb >QM: 
cj<166 THEN LOCATE 36,3:FEN 2:PRINT nb#:FEN 1 

750 IF f1(1)+#112)+f1(3)+f1(4)=4 THEN GOTO 3326 ?QN< 
769 IF nbcjiô6 THEN nbcy=nbcitisc(p,7)=mstnbcj) ELSE c >JP< 
(p,7)=0 

779 PQ 
788 IF p£oi THEN FOR tempo=i TO SO9:NEXT tempo 2WR£ 
790 IF velcip,7));:18 AND velc(p,71)415 THEN fi2(velc(p, WT£ 
7))-16)=p 

869 IF f2(c)>5 THEN fi5(c)=fi5(c)+1 >DJ4 
816 IF fé(ci=1 OR f2(c)=6 THEN fi4(c)=#14(c)+1 ?LK< 
826 IF (f2(c)>1 AND f2(ch£6) THEN flbic)=fié(c)+1 ?LL< 
839 manque=1009-pt (c}) CM 
84ÿ att=i 2RN£ 
854 IF p=1i THEN GOTO 3619 > QP< 
866 FOR i=1 TO 7:f5(1/=0:NEXT ?EBQ 
870 FOR cartes=1 TO 7 ?VR£ 
889 IF c(p,cartes)=ù THEN GOTO 914 >VT< 
896 carte=c(p,cartes) AU: 
900 GOSUB 1470 N16 >FKX 
919 NEXT cartes #DL< 
920 GOSUB 1809 CREIL EM 
930 GOSUE 2459 #CN£ 
940 c(p,cj)=0 ?NP< 
956 IF cj£>7 THEN c(p,cj)=c(p,7) Ya 
960 IF c=1 THEN y=21 ELSE y=i >KR£ 
979 IF poscf=4 THEN GOTO 1020 #RT£ 
980 IF ((f2(c)=2 OR f2(c)>5) AND f3(1)=c) OR (f2(c)=3 À >FU4 
ND #3(2)=c) OR (f2(c)=4 AND #3(3)=c) OR (f2(c)=5 AND f3 
(4)=c) THEN f2(c)=1:60T0 996 ELSE GOTO 1690 

990 CALL 49009,5,y,ad (45) ?XVE 
1906 IF félc)=1 AND #3(1)=c THEN fé(c)=6:CALL 40000,1, >VB< 
y,ad(19B) 

1919 poscf=4:G0TO 696 ?TC< 
1926 IF pt(c)=1999 THEN GOTO 3336 >HD< 
1930 FOR 1=1 TD 7 YAE* 
1940 IF c(p,i)<>à THEN GOTO 1979 >RF< 
1959 NEXT 1 RG 
1968 f1(pi=l >QH< 


29 


1976 IF att=6 THEN GOTO 1459 

1989 IF c=i THEN advi=2:adv2=4 ELSE advi=i:adv2=3 
1699 cf=ù 

1199 FOR 1=i TO & 

1119 IF att€>1 THEN GOTO 1154 

1129 IF cladvi,ii=196 THEN cf=i: j=advi:G0TO 1286 
1120 IF cladv2,i)i=106 THEN cf=1: j=adv2:G0T0 1288 
1149 GOTO 1260 

1150 IF att£>2 THEN GOTO 1199 

1160 IF cladvi,i)=194 THEN cf=2: j=advl:GOTO 1280 
1178 IF ciadv2,i)=194 THEN cf=2: j=adv2:60T0 1280 
1180 GOTO 1260 

1190 IF att<>3 THEN GOTO 1234 

1209 IF ciadvi,i)=193 THEN cf=3: j=advi:G0TO 1286 
1216 IF cladv2,i)=193 THEN cf=3: j=adv2:G0T0 1280 
1224 GOTO 1269 

1239 IF att‘>4 THEN GOTO 1269 

1246 IF ciadvi,ii=105 THEN cf=4: j=advi:G0TO 1280 
1254 IF cadv2,1)=195 THEN cf=4: j=adv2:G0TD 1286 
1268 NEXT i 

1274 GOTO 1456 

1286 ‘ coup fourre 

1296 IF c=1 THEN c=2 ELSE c=i 

1300 BORDER 9,6 


1316 FOR ti=1 TO 10:FO0R t2=99 TO 125: SOUND 1,t2,2,15:NE : 


XT ta, ti 

320 cj=i:p=) 

1330 IF p=1 THEN CALL 46069,pc(cj,1),pc(c;,2),ad(198) 
1346 ON volc(p,cj))-10 GOSUB 2680, 2690,2700,2710 
1359 poscf=0: IF c=1 THEN y=21 ELSE y=1 


1369 faivotc(p,ci))-18)=c:1F velc(p,ci})=11 AND (f2(c); > 


2 AND f2(c):6) THEN flg=1 ELSE flg=ÿ 


1370 IF nbcj*i96 THEN nbcj=nbcjtiic(p,cj)=ms(nbcj) ELSE : 


c(p,cj)=0 

1380 IF flg=i THEN GOTO 1419 

1396 f2(c)=1 

1469 CALL 46600,5,y, ad (65) 

1419 IF p=i THEN CALL 49906,pcicj,1},pclci,2},ad(c(i,cj 
}) 

1424 IF f4(1)=c THEN fé(c)=0:CALL 49006, 1,y,ad(198) 
1439 FOR tempo=1 TO 2506:NEXT tempo: BORDER 9 

1446 pp=p-1:G0T0 696 

1459 pp=((pp+i} MOD 4) 

1460 GOTO 690 

1479 ‘determination dû coef 

1486 IF ve(carte)<ii OR velcarte)>14 THEN GOTO 1550 
1496 ÏF nbcj:96 OR ptici:775 UR ptladv)>775 UR (#19(c): 
19 AND ve(carte)=11) OR (fi4(c)>19 AND velcarte)=11} TH 
EN f5(cartes)=1606: RETURN: 

1509 IF fib(c)>12 AND ((f2(c)=2 AND velcarte)=11) OR (f 
2(c)=3 AND ve(carte)=12) OR (f2(c)=4 AND ve(carte)=13) 
OR (f2(c)=5 AND ve(cartei=14)) THEN f5(cartes)=1000:RET 
URN 

1519 f5(cartes)=20 

1520 RETURN 

1530 IF (vc(carte)>1 AND ve(carte)#6) OR velcarte)=10 T 
HEN GOTO 1546 ELSE GOTO 1620 

1549 IF ((ve(carte)=2 OR volcarte)=10) AND f3(1)=adv) 0 


30 


>TN< 
"F4 
>KF< 
>C6 


>HHE 
SXJ< 
)1ZK£ 
>KL< 
>JME 
FEN 
>XP< 
NU 


AYG€ 
>AH£ 


PJ 
?NK< 


YAL£ 


R (ve(carte)=3 AND f3(2)=adv) OR (ve(carte)=4 AND f3(3) 
zadv) OR (velcarte)=5 AND f3(4)=adv) THEN f5(cartes)=-1 
000: RETURN 
1559 IF ((ve(carte)=2 DR velcarte)=10) AND f3(1)=c) OR 
(ve(carte)}=35 AND f3(2)=c) OR (velcarte)=4 AND f3(3)=c) 
OR (ve(carte)=5 AND f3(4)=c) THEN cp1=50 ELSE cp1=0 
1560 IF ((velcarte)=2 OR velcarte)=14) AND f12(1)=p) OR 
(vc(carte)=3 AND f12(2)=p) OR (velcarte)=4 AND f12(3)= 
p} OR (velcarte)=5 AND f12(4)=p) THEN cpl=49 
1579 IF f2(adv)={ AND ve(carte)<:19 THEN f5(cartes)=500 
+cpl:G0TO 1619 


1586 IF vclcarte)=19 AND fé(advi=8 THEN f5(cartes)=406+ ; 


cpl:GOTO 1618 


1599 IF (ve(carte)=2 OR ve(carte)=10) AND #3(1)=adv THE ? 


N f5(cartes)=-1604: RETURN 

1694 f5(cartes)=2+(cp1/190) 

1619 RETURN 

1626 IF ve(carte){é DR ve(carte)>9 THEN GOTO 1689 

1630 IF (ve(carte)=9 AND f3(1)=c) OR (ve(carte)=6 AND f 
3(2)=c) OR (velcarte)=7 AND f3(3)=c) OR (velcarte)=8 AN 
D f3(4)=c) THEN f5(cartes)=-1950: RETURN 

1640 IF (ve(carte)=9 AND f12(1)=p) OR (velcarte)=6 AND 

#12(2)=p) OR (ve(carte)=7 AND #12(3)=p) OR (vc(carte)=8 
AND #12(4)=p) THEN f5(cartes)=-1000: RETURN 

1650 IF (velcarte)=6 AND f2(c)=3) OR (velcarte)=7 AND f 
2(c)=4) OR (vc(carte)=8 AND f2(c}=5) THEN f5icartes)=49 
9: RETURN 


166% IF voltcarte)=9 AND fé(c)=1 THEN f5(cartes)=360:RET > 


URN 

1679 f5(cartes)=5:RETURN 

1688 IF vo(carte)<>1 THEN GOTO 1720 

1699 IF f3(1)=c THEN f5(cartes)=-950: RETURN 


1700 IF f2(c)=6 OR f2(c)=2 OR (f2(c)>5 AND f2(c)€9) THE : 


N f5(cartes)=490 ELSE f5(cartes)=19 

1719 RETURN 

1729 IF velcarte)>14 THEN GOTO 1730 ELSE STOP 

1736 IF velcarte)=19 AND fii(c)=2 THEN f5(cartes)=-1100 
: RETURN 


1740 IF féc)=1 AND ve(carte)>16 THEN f5(cartes)=i+(ve( à 


carte) /190) : RETURN 

1756 IF (manque<58 AND ve(carte)=16) DR (manque{75 AND 
vc(carte)=17} DR (manque<190 AND vc(carte)=18) OR (manq 
ue{266 AND ve(carte)=19) THEN f5(cartes)=-11009: RETURN 


1760 IF f2(c)>1 OR f2(c)=6 THEN f5(cartes)=1+(ve(carte) : 


/109) : RETURN 

1770 IF (manque=25 AND ve(carte)=15) OR (manque=5ÿ AND 
ve(carte)=16) OR (manque=75 AND vc(carte)=17 ) OR (manq 
ue=199 AND ve(carte)}=18 } OR (manque=290 AND ve(carte)= 
19 } THEN f5(cartes)=900:RETURN 

1784 IF velcarte)=19 THEN f5(cartes)=200 ELSE f5(cartes 
)=366+vc (carte) 

179 RETURN [16] 

1806 ‘ carte a jouer : 

1819 ma=25:mini=ô:c j=0 Le 

1826 ‘ 

1839 FOR i=i TO 7 

1846 IF #5(i)ma THEN cj=i:ma=fo(i) 
1850 NEXT i 


?XM€ 


?DN< 


:DP< 


2KM£ 


FXN< 


2VR€ 


PAT 


I 
>DK< 
>UL< 
?NM€ 
?JN< 
?PP£ 
>AQK 


186ÿ 
1874 
1880 
1899 
1906 
1914 
1929 
1934 
1949 
1956 
1960 
1974 
1986 
1999 
2000 
2619 
2920 
=, 6 
2676 
GOTO 
2640 
2950 
2064 
2970 
2080 
2990 
2109 
2119 
2126 
2139 
GOTO 
2140 
2154 
2166 
2176 
2189 
2196 
2209 
2219 
2226 
2230 
2240 
2250 
THEN 
2260 
2274 
2280 
2290 
2306 
2319 
2320 
2330 
2340 
2350 
2360 


IF cj{>ë THEN GOTO 2374 

FOR i=1 TO 7 

IF f5ii)émini THEN cj=iiminizfg ti) 
NEXT i 

IF cj:;6 THEN GOTO 2376 
nbf=8:nbp=6:nba=û: nbd=û 

FOR i=i TO 7 

IF c(p,1)=0 THEN GOTO 1989 

IF #5(1)=19 THEN nbf=nbf+i 

IF #5(1)=5 THEN nbp=nbp+1 

IF INT(#5(1))=2 THEN nba=nbati 

IF #5(1)=1.19 THEN nbd=nbd+1 

NEXT i 

FOR i=1 TO 7 

IF INT(#5(1))=2 AND nba=i THEN f5(i)=18 
IF #5(1)=5 AND nbp=i THEN f5(1)=17 


IF #5(11=10 THEN IF nbf£3 THEN #5(1)=19 ELSE f5(1) : 


IF f5(1)=1.19 AND nbd+fii(c}>2 THEN c=isminisd.i: } 


2360 

IF f6(c}=0 THEN GOTO 2976 
IF #5(1)=1,16 THEN f5(1)=1.: 
IF f5(1i=i.15 THEN f5(1)=1. 
NEXT i 

IF nbpi2 THEN GOTO 2260 
#1=0 

FOR i=i TO 6 

IF #5(i€:5 OR c(p,i)=0 THEN GOTO 2196 
FOR j=it+i TO 7 


F2 LA 


IF f5(j)€:5 OR velc(p,i))<;ve(c(p,j)} OR j=7 THEN 


2180 

FOR k=3j+1 TO 7 

IF vetc(p,jh)=vetc(p,k)) THEN f1=1:#5(k)=0,3 
NEXT 

IF f1=4 THEN #5(j)=0,5 

fI=0:NEXT j 

NEXT i 

IF nba<2 THEN GOTO 2324 

f1=0 

FOR i=1 TO 6 

IF INT(#5(i)1)<%2 OR cp,i)=6 THEN G0TD 2310 
FOR j=iti TO 7 


IF INT(#S(j))€>2 OR velctp,il)évetc(p, ii) OR j=7 


GOTO 2369 

FOR k=j+1 TO 7 

IF volc(p,j))=ve(c(p,k)) THEN f1=i: f5(k)=0,2 
NEXT k 

IF f1=6 THEN f5(j)=0,4 

fI=U:NEXT j 

NEXT i 

mini=30 

FOR i=i T0 7 

IF f5(i)<mini AND c(p,i)<>6 THEN cj=i:mini=f5(i) 
NEXT i 


IF volc(p,cj))>18 AND ve(c(p,cj})€15 THEN f5(cj)=m 


ini ELSE f5(cj}=-mini 


2370 


IF p=1 THEN CALL 40060,pc (ci, 1),pctci, 2), ad (108) 


>KR< 
PNT< 
>HUX 
>EV€ 


?GF< 
PRG< 
>TH< 
?EJ< 
>TK< 
>UL< 
>1M£ 


2KN< 


2388 IF p=i AND cjt>7 THEN CALL 40906,9,11,ad(108) :CALL >PP< 


2390 
2400 


2410 IF fS(cj)<O THEN CALL 40000,31,1,ad(c(p,cÿ)):RETUR 


N 
420 


1000 BORNES 


40006 ,pclc,1),pctcj,2),ad(c(1,7)) 


RETURN 
‘calcul pos. carte et maj des coef 


x=9:att=0 


2 
2439 ON velc(p,ci}) GOTO 2449, 2470, 2490, 2510, 2530, 2550, 
2580, 2610, 2440, 266, 2680, 2690, 2700, 2710, 2850, 2880, 2910, 


2949, 2970 


2440 
2450 
Î 

2460 
2470 
248% 
2490 
2506 
2510 
2526 
2516 
2546 
2350 
2560 
2570 
2589 
2590 
2600 
2610 
2620 
2630 
2649 
2650 
2666 
2670 
2680 
2690 
2700 
2719 
2720 
2730 
2749 
2750 
2760 
2779 
2780 
2799 
2800 
2819 
2826 
2839 
2840 
2850 
2860 
2870 
2889 
289 
2900 
2919 


IF #2(c)=0 THEN f14(c)=0 


#15(c)=0:fib(c)=b:f2(c)=1: IF c=1 THEN y=21 ELSE y= > 


GOTO 2996 

f2(adv)=2:att=1:1F c=1 THEN y=i ELSE y=21 
GOTO 2996 

f2(adv)=3:att=2:1F c=i THEN y=1 ELSE y=2 
GOTO 2990 

f2(adv)=4:att=3:1IF c=1 THEN y=1 ELSE y=21 
GOTO 2996 

f2(adv)=5tatt=4:1F c=1 THEN y=1 ELSE y=2 
GOTO 2994 

fié(c)=0:f2(c)=6:IF c=1 THEN y=21 ELSE y=i 
IF #3(1)=c THEN f2(c)=i 

GOTO 2999 

fib(c)=0:#f2(c)=7:IF c=1 THEN y=21 ELSE y=1 
IF f3(1)=c THEN f2(c)=1 

GOTO 299û 

fiôtc)=0:f2(c)=8:1F c=1 THEN y=21 ELSE y=1 
IF f3(1)=c THEN f2(c)=1 

GOTO 2990 

fé(c)=0:#i4(c)=0:x=1:IF c=2 THEN y=i ELSE y=21 
GOTO 299% 

fhtadvi={:att=1:x=i:IF c=1 THEN y=i ELSE y=21 
GOTO 2996 

#3(1)=c:#12(1)=0:G0T0 2726 
f3(2)=c:#12(2)=0:G0T0 2729 
#3(3)=c:#12(3)=0:G0T0 2726 
#3(4)=c:#12(4)=0 

ncf=0:poscf=1 

FOR i=1 TO 4 

IF f3(i)=c THEN ncf=ncf+i 


NEXT i 


ON ncf-1 GOTO 2790,2816,2B30 

IF c=1 THEN x=1:y=16 ELSE x=1:y=6 
GOTO 299û 

IF c=i THEN x=5:y=16 ELSE x=5:y=6 
GOTD 2999 

IF c=i THEN x=1:y=12 ELSE x=1:y=9 
GOTO 2990 

IF c=i THEN x=5:y=12 ELSE «=5:y=9 
GOTO 2990 

x=25:pt(c)=pt(c)+25 


f7(c)=f7(c)+1:1F c=1 THEN y=22-f7(c) ELSE y=f7(c) 


GOTO 2990 
x=21:pt(c)=pt(c)+50 


#8(c)=f8(c)+1:1F c=1 THEN y=22-f8(c) ELSE y=#B(c) 


GOTD 2990 
x=17:pt(c)=pt(c)+75 


:WQ< 
>UG* 
>PH< 


FXJ< 
2DK< 


?OR< 
>BTK 
>YU< 
3MV< 
JW 
?RM< 
>UN< 
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2720 f9(c)=#9(c)+1:1F c=1 THEN y=22-f9(c) ELSE y=#9(c) 
2939 GOTO 2990 

2949 x=13:pt(c)=pt(c)+100 

2950 f19(c)=#f10(c)+1:IF c=1 THEN y=22-f10(c) ELSE y=#10 
(c} 

2966 GOTO 2999 

2970 x=9:pt(c)=pt(c)+200 

2980 f11(c)=fiitc)+1:IF c=1 THEN y=22-fii(c) ELSE y=fil 
(c} 

2999 CALL 40009,x,y,ad(c(p,cj)) 

3606 RETURN 

3919 ‘tour d'un joueur humain 

3926 IF nbcj{197 THEN CALL 46669,9,11,ad(c(p,7)) 

3636 IF f1(1)=1 THEN GOTO 1456 

3646 pcu=1 

3050 FOR i=1 TO 50:a$=INKEYS$:NEXT 

3069 FOR i=1 TO 7:#5(1)=6:NEXT 

3670 IF c(i,pcu}{>9 THEN GOTO 3086 ELSE GOTO 3136 

3089 LOCATE pcc(peu,1),pcc(pcu,2):PRINT CHR$ (241) 

3490 a$=INKEYS$:1F a$="" THEN GOTO 3990 

3190 IF a$=" " THEN SOUND 4,260, 15,15,4, 4:LOCATE pcc(pc 
u,1),pec(pou,2):FRINT " "sspcu=pcuti:IF pcu=8 THEN pcu= 
1 

3110 IF a$="c" OR a$="C" THEN SOUND 4,600, 45,15,4,4:LOC 
ATE pec (peu, 1) ,pcc(pou,2):PRINT “ "sscj=pcu:GOTO 3150 
3129 GOTO 3970 

3139 pcu=pcuti:IF pcu=8 THEN pcu=i 

3149 GOTO 3670 

3150 ON vetc(i,cj)) G60TO 3165,3170,3170,3170,3170,3180, 
3190,3200,3210,3220,3230,3230,3230,3230,3240,3250, 3266, 
3276,3286 

3166 IF f2(1)=1 OR (f2(1)>2 AND f2(1)€6 ) OR #3(1)=1 TH 
EN GOTO 3510 ELSE GOTO 3308 

3176 IF #2(2)€>1 OR f3(ve(c(i,cj)})-1)=2 THEN GOTO 3710 
ELSE GOTO 3369 

3180 IF f2(1)=3 THEN GOTO 3306 ELSE GOTO 3310 

3190 IF f2(1)=4 THEN GOTO 3300 ELSE GOTD 3319 

3206 IF f2(1)=5 THEN GOTO 3596 ELSE GOTO 3316 

3219 IF f6(1)=1 THEN GOTO 3399 ELSE GOTO 3319 

3229 IF f6(2)=0 AND f3(1)<:2 THEN GOTO 3390 ELSE GOTO 3 
310 

3236 GOTO 3300 

3240 VA=25:G0TO 3299 

3256 VA=56:G0T0 3299 

3269 VA=75:1F f6(1)=1 THEN GOTO 3314 ELSE GOTO 3290 
3276 VA=190:IF f6(1)=1 THEN GOTO 3310 ELSE GOTO 3299 
3280 VA=296:IF #11(13=2 OR fb(1)=1 THEN GOTO 3319 ELSE 
GOTO 3296 

3299 IF pt(i)+va>1909 OR #2(1)€>1 THEN GOTO 3310 

3306 f5(cj)=1000:GOTD 3329 

3319 f5(cj)=-1000 

3320 GOTO 920 

3330 ‘fin de partie 

3340 LOCATE 13,13:PRINT "FIN DE PARTIE":FOR tempo=i TO 
3009: NEXT tempo 

3350 CLS: INK 0,13:BORDER 13:INK 1,13 

3360 LOCATE 15,1:PRINT "MARQUE" 
3370 PRINT:PRINT “  JOUEUR 


VOUS MOI" 
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?ÎTÉ 


?YU4 
>QV 
>RWE 


FX 
>ID< 
DME< 
>NF 
>AG< 
>NH< 
KK 
>K< 
>UL< 
DUR 
>PN< 
JTE 


?WF< 


>AG< 
>LH< 
?CJé 
?AK< 


EL 
:LM< 


PEN 
>MP< 
+EF< 
>FG< 
>HH< 


eYJ< 
?NE< 
?ML< 
2FM 
2XN€ 
>UP< 


>FQ 
2MG< 
?RH< 
?BJ< 
?TK£€ 
?RL£ 


> JM< 
?EN< 
>1P4 


3380 PRINT: PRINT “ REPORT":PRINT: PRINT" BORNES":PRINT:F 

RINT" BOTTES":PRINT:PRINT" COUPS-FOURRES":PRINT: PRINT" 

MANCHE " : PRINT 

3390 PRINT " COURONNEMENT":PRINT:PRINT " PAS DE 260" 

3400 PRINT 

3419 PRINT “ CAPOT" 

3420 PRINT 

3430 PRINT “ TOTAL" 

3440 FOR i=376 TO 36 STEP -32:PLOT 0, j:DRAN 656, 3: NEXT: 

PLOT Ô,84:DRA 600, 84:PLOT 0,376: DRAN 6,56:PLOT 240,376 
:DRAN 249,56: PLOT 420,376: DRAW 420,56: FLOT 600, 376: DRAW 
600, S6:PLOT 9,348:DRAN b0ÿ,348:PLOT 0,316: DRAW 600,316 


3450 LOCATE 18,5:PRINT USING "####"; tot (1) :LOCATE 31,5: : 


PRINT USING “####"; tot (2) 


3460 LOCATE 18,7:PRINT USING "####";pt(1):LOCATE 31,7:F > 


RINT USING "####";pt(2):tot (1)=tot(1)+pt (1): tot (2)=tot ( 
2)+pt (2) 

3470 cfi=d:c {2-0 

3480 FOR i=1 TO 4 

3490 IF #3(ii=1 THEN cfi=cfi+100 

3500 IF f3(1)=2 THEN cf2=cf2+100 

3516 NEXT i 

3520 IF cti=400 THEN cf1=700 

3536 IF cf2=400 THEN cf2=700 


3549 LOCATE 18,9:PRINT USING “####";cfi:LOCATE 31,9:PRI ; 


NT USING "####";cf2:tot(1)=tot(1)+cfiitot (2)=tot (2) +cf2 


3550 cfi=h:cf2=0 

3566 FOR i=i TO 4 

3576 IF f4(i)=1 THEN cfi=cfi+300 
3586 IF f4(1)=2 THEN cf2=cf2+300 
3590 NEXT i 


3609 LOCATE 18,11:PRINT USING "####";cfi:LOCATE 31,11:P : 


RINT USING “####";cf2:tot(1)=tot(1)+cfl:tot(2)=tot (2)+c 


#2 


3610 IF pt(11=1900 THEN LOCATE 18,13:FPRINT USING "###h" 


3490: tot (1)=tot (1)+400 


3620 IF pt(21=1000 THEN LOCATE 31,13:PRINT USING "####" 


3400: tot (2}=tot (2)+400 


3636 IF pt(11=1009 AND nbcj>195 THEN LOCATE 18,15: PRINT 


USING “####";300: tot (1)=tot (1) +300 


3646 IF pt(2)=1606 AND nbcj>105 THEN LOCATE 31,15:PRINT : 


USING “####";309: tot (2)=tot (2) +390 


3656 ÏF pt(i)=1000 AND #i1(12=0 THEN LOCAIE 18,1/:FRINT > 


USING "####";300: tot (1)=tot (1}+300 

3660 IF pt(21=1000 AND f11(2)=0 THEN LOCATE 31,17:PRINT 
USING "####";300: tot (2)=tot (2)+300 

3670 IF pt(1)=1090 AND pt(2}=0 THEN LOCATE 18,19:PRINT 

USING “####"; 500: tot (1)=tot (1)+500 

3680 IF pt(21=1000 AND pt(1}=0 THEN LOCATE 31,19:PRINT 

USING "####": 500: tot (2)=tot (2) +500 

3699 LOCATE 18,21:PRINT USING “####"; tot (1) :LOCATE 31,2 
1:PRINT USING "####"; tot (2) 

370% INK 1,0 

3710 LOCATE 7,23:PRINT “Taper ‘C' pour continuer" 

3720 a$=INKEYS:IF a$="" THEN 3720 

3730 IF a$<>"c" THEN GOTO 3720 


>FQ 


?ER* 
2YH< 
#FJ< 
>AK£ 
?XL< 
>AM< 


>GU< 
DWE 


UL< 
>QM< 
IN 
>JPé 


3749 IF tot(1)>=50068 OR tot(2};=5090 THEN GOTO 3796 
3750 MODE 1:INK 9,9:BDRDER 9 

3768 pj=pitisIF pj=5 THEN pj=i 

2770 pp=pj-1 

3786 GOTO 46ÿ 

3799 CLS:PRINT: PRINT: PRINT: IF on 
2:PRINT "BRAVO, Vous avez gagne..." 
3806 IF tot(1)<tot(2) THEN a=2:b=1:PRINT "J ai gagne 


tot (2) 


3819 
3820 
1836 
3840 
385% 
3860 
3876 
3880 
3896 
3966 
3919 
3928 + 
3930 
3949 
3956 
3969 


IF tot(i)=tot(2) THEN FRINT "Il y a egalite ...." 
PRINT:PRINT: PRINT "Vous avez "itot(ii;" points" 
PRINT: FRINT: PRINT “J'ai “stot(Zi:" points" 
GOSUB 5270:M0DE Z:d1ff=AES (tot (1}-tot(2)) 
FOR i=1 TO 19 
IF ditfir(i,i} THEN GOTO 3960 
FOR j=14 TO 1 STEF -1 
r(j,D=r(j-1,t)er(j,2i=r(j-1,2) 
r#(j,1)=r$(j-1,1ir$(j,2)=r$(] 
NEXT Jj 
r(i,l)i=diff 

r(i,2)=MAX (tot (1), tot(2)) 
r$(i,a)=n$(i}+" et "+n$ (3) 
r$li,bi=n$(2)+" et "+n$(4) 
GOTO 3979 
NEXT 1 
3979 INK 1,13:LOCATE 37,1:PRINT "RECORD" 
3986 LOCATE 15,3:PRINT “JOUEURS 
EC CONTRE" 
3990 FOR J=1 TO 19 
4606 IF j=1 THEN sp$=CHR$(24)+" " ELSE sp$=" " 
4919 LOCATE 19,3Jx2+3:PRINT sp#ir$(j,1)5" " 
4626 LOCATE 34, j#2+3:PRINT USING "##h#'ir (1) 
4970 LOCATE 41,3#2+3:PRINT USING "####"sr(],2) 
464% LOCATE 45, 3j#2+3:FRINT " points" 
4956 LOCATE 54, j#2+3: PRINT " fir$(j,2) spé 
4066 NEXT j 
4670 FLOT 64,378: DRAU 596,378: PLOT 64,374: DRAN 596,274: 
PLOT 64,346: DRAW 596,346:PLOT 64,348: DRAN 596,348: FOR z 
=312 T0 16 STEP -32:PLOT 64,2: DRAW 596,2: NEXT 


5 
—1,2) 


GAIN AV 


4089 FLOT 64,378: DRAN 64,24:PLOT 596,378: DRAM 596,24:FL > 


OT 252,378:DRAW 252,24:PLOT 308,378: DRAW 308,24: FLOT 41 
6,378: DRAM 416,24 

4999 INK 1,9 

4199 LOCATE 1,25:PRINT "Voulez-vous rejouer 7"; 

4119 a$=INKEYS$ 

4126 IF a$="" THEN 4110 


4126 IF a$="o" OR a$="0" THEN CLS: INK 6,9: BORDER 9:60T0 ; 


439 

4146 IF a$<:"n" AND a$<?"N" THEN 4119 

4159 CLS PRINT “Au revoir":STOP 

4166 ‘+ regles du jeu 

4179 MODE 1 

4180 LOCATE 1,19:PRINT “Voulez-vous les regles (O/N) 7" 


4190 a$=INÉEY$:1F a$="" THEN 4199 

4200 IF a$="n" OR a$="N" THEN GOTO 423 
4219 IF a$="o" OR a$="0" THEN GOTO 4535 
4229 GOTO 4190 


Va: 
3CR<€ 
>DT< 
3MU< 
#LVE 
} THEN a=i:b= >BW: 


NME 


FEN< 
FXP< 
zYQ: 
FCR£ 
AT: 
:JU< 
FJVE 
#RY< 
?1X< 
:IN£ 
>CP< 
2FQ< 
2XR< 
?BT£ 
> XU< 
?EVE 
AU 
>VX< 


:QY< 
3KE< 
2PF< 
>DG* 


2EM° 


WN< 


> XP< 
2GF< 
#Y6< 
>RHE 


TJ< 


3AK£ 
#BL< 
3MM£ 
3UN< 
EP< 


>DQ< 


>D6< 
>HH< 
36J< 


1000 BORNES 


236 IF n$iir€:"% THEN LOCATE 1,11:FRINT “Meme joueur 

o/n)" ELSE GOT 4280 
4245 a$=INFEYS$:IF a$="" THEN 4246 

4256 IF a$="n" OR a$="N" THEN GOTO 4280 

4266 IF a$<;"o" AND a$="0" THEN GOTO 4249 

4279 GOTO 4329 
4289 LOCATE 1,12:PRINT “Entrez votre nom (max 8 lettres 
} ":LOCATE 16,13: PRINT “...,.,..., “LOCATE 9,13: INPUT n$ 
(1) 
4296 n$(1)=LEFT$(n$(1),8) 
4396 LOCATE i,15:FRINT "Entrer le 
er ":LOCATE 10,16:PRINT ".,,,.,..., “:LOCATE 9,16: INPUT n 
$(3)in$(3)=LEFTS$ (n$ (3),8) 

4516 FRINT:FRINT "Vos adversaires 
4226 GOSUB 5279:RETURN 

4536 INK 1,60:INE 0,13: BORDER 13:MODE 2 
4346 LOCATE 27,1:PRINT CHR#() "MILLE 
E S “;CHR#(24) 

359 PRINT:PRINT: PRINT CHR$(24;:" EUT DU JEU":CHR$ (24) 


seront Max et Sam “ 


BORN 


4364 FRINT " Atteindre 5668 points en plusieurs manches ; 


.Une manche est terminee lorsque 1966kilometres ont ete 


parcourus, où par epuisement des cartes contenues d 
ans lesabot." 

4376 PRINT:FRINT: PRINT CHR$(24);" NOMBRE DE JOUEURS ";C : 
HR$ (24) 


4186 FRINT “ Ce jeu 5e joue en 2 equipes de ? joueurs" 

4396 FRINT:PRINT:PRINT CHR$(24)5;" THEME DU JEU ";CHR$ (2 

4) 

4406 PRINT " Imaginez que vous conduisez votre voiture 
sur un trajet de 1660 km - ou 19%0bornes. Vous respe 

ctez les limites de vitesse, vous freinez au feu rou 

ge pour"; 

4416 PRINT "redemarrer au vert.5i un pneu creve, vous m 

ontez la roue de secours.Vous risquez"; 

4426 PRINT "de tomber en panne d'essence. Apres un accl 

dent, vous ne repartez qu'apres avoirfait reparer la vo 

iture,." 

4456 FRINT "Toutes ces situations sont representees au 

MILLE BORNES par des cartes." 

4446 GOSUB 5276 

4450 CLS 

4466 PRINT:FRINT CHR$(24):" COMPOSITION DU JEU ";CHR$(2 

4) 

4476 PRINT :PRINT " Les 196 cartes se partagent en 4 f 

amilles : les etapes , qui representent leskm parcouru 

s,les attaques,les parades et les bottes." 

4486 PRINT CHR$(24);" ETAPES ";CHR$ (24) 

4499 PRINT “ Chaque carte represente une distance : 25 

, 90, 75, 100 ou 299 km. Exposees parune equipe, ces ca 

rtes permettent d'atteindre 1096 bornes en s'additionn 

ant lesunes aux autres." 

4506 PRINT CHR$(24)3;" ATTAQUES “;CHR$ (24) 

4519 PRINT “ Il y a :18 attaques et 38 parades corres 

pondantes" 

452% PRINT "S stop ou feu rouge 

vert" 

4536 PRINT "4 limite de vitesse 


14 roulez ou feu 


& fin de limite" 


nom de votre coequipi ; 


( AJEX 
3VLE 
PME 
FJN< 
SGP£ 
>VQ< 


2YT< 


>FX 


SUK< 


XL 


PH 
NN 
>UP< 
> 
HVRE 


2FT£ 
SYUX 


>DK< 
>LL< 


2HM£ 


?HN€ 


33 


454% PRINT "3 panne d'essence b essence“ 


34 


2MP< 


4556 PRINT "3 crevaison b roue de secour :XQ 
s" 

4565 PRINT "3 accident & reparation" FNRE 
4579 PRINT :FRINT “ Une attaque est toujours deposee AT 
dans le jeu de l'equipe adverse pour laretarder.L' 
equipe attaquee ne peut plus exposer d'etapes avant d'a 

voir recouvertl'attaque de la parade correspondante pui 

s d'un feu fert." 

4586 PRINT CHR$(24)3;" BOTTES “;CHR$ (24) #YU£ 
4599 PRINT “ C'est 4 cartes : prioritaires,citerne,in *DV< 
crevable et as du volant sont tresimportantes. Chaqu 

e botte, une fois exposee, interdit l'attaque corresp 
ondantependant la duree de la manche" 

400 GOSUB 5276 HL: 
4619 CLS:PRINT:PRINT:FRINT CHR$(24);" LE JEU ";CHR$(24) FM: 
4620 PRINT CHR$ (24); "Regles generales “;CHR$ (24) 2WN€ 
4636 PRINT “Un seul jeu est expose pour l'equipe.Le pre :DP< 
mier joueur a 4 possibilites:" 

4648 PRINT " S'il a un Feu vert,il peut le poser" ?EQ 
4650 FRINT “ S'il a une botte,il peut la poser. Le fa ?MR< 
it d'exposer une botte lui donne le 

droit de rejouer.Il tire donc une autre carte et reJjoue 

466 PRINT “ S'il a une limite de vitesse,1il peut la po :VT< 
ser" 

467 FRINT " S'il n'a aucune de ces cartes, 1l doit s :BU“ 
e defausser en jetant l'une de sescartes." 

468% PRINT “ Fuis le suivant joue. Aux differentes  :FV< 
facons de jouer indiquees ci-dessuss ajoutent deux 

autres possibilites :" 

4699 PRINT " - Si le premier joueur a expose un Feu ver NW‘ 
t, vous pouvez l'attaquer" 

4706 FRINT " - Si le premier joueur vous à attaque d :XM< 
une Limite de vitesse, vous pouvez recouvrir cette 
carte d'une fin de limite." 

4716 PRINT " C'est alors au tour du troisieme joueur, ?UN: 
partenaire du premier.ll a les memespossibilites que 

le premier et le second joueurs. Toutefois, si son par 
tenairea expose un Feu vert où la botte prioritaire, il 

peut exposer une premiere etape." 

4720 FRINT " Le quatrieme Joue dans les memes conditio :CP£ 

‘ns et l'on continue, chacun jouant ason tour, jusqu a 

ce qu'une equipe ait aligne exactement 1496 bornes, ou 
jusqu'aepuisement du sabot et des cartes que chacun ten 

ait en main." 

4739 GOSUB 5274 :00< 

4746 CLS:FRINT CHR$(24):" Cartes d'attaque et de parade :QR“ 
"3 CHR$ (24) 

4756 PRINT “ Les attaques sont placees dans le jeu expo :LT< 
se de vos adversaires: les parades sejouent dans le jeu 
expose de votre equipe." 

4764 PRINT:PRINT " Lorsque l'adversaire expose la bot :JUK 
te prioritaire c'est sur sa derniere paradeque vous pos 

ez votre attaque." 

4770 PRINT:PRINT CHR$(24};" Les bottes “;CHR$ (24) ELAES 
4789 PRINT “ Vous avez 2 possibilites d'exposer une bot :MH< 


te dans votre jeu:" 

4796 FRINT “ A votre tour normal “ 

4860 PRINT “ Au moment precis ou votre adversaire vou 
5 attaque et pourvu que votre bottecorresponde a l'at 
taque." 

4816 PRINT " Des que vous exposez une botte, les adver 
saires n'ont plus le droit de vousplacer l'attaque c 
orrespondante jusqu'a la fin de la manche." 

4824 PRINT 

4830 FRINT CHR$(24);" Le coup-fourre ";CHR$ (24) 

4849 PRINT “ Il consiste a exposer une botte des q 
u‘un adversaire place dans votre jeul attaque correspo 
ndante." 

4856 FRINT "Le coup-fourre vous donne 4 avantage:" 

4869 FRINT " rejeter l'attaque que vous annulez ainsi." 


4876 PRINT 
4889 PRINT 
4896 PRINT 
ts." 

4906 GOSUB 5279 

4919 CLS:PRINT CHR$(24):;" Les cartes etapes “;CHR$(24) 

4928 FRINT " Vous pouvez exposer n'importe quel borne 
a condition d'avoir un feu vert surla pile de bataill 
e où bien d'avoir la botte prioritaire." 

4936 PRINT “ Toutefois: 


“ prendre une carte au sabot." 
“ rejouer immediatement,“ 


4949 FRINT " -votre jeu ne doit jamais comporter plus d : 


e 2 etapes 260" 

4956 PRINT “ -si un adversaire à piace une limite de 
vitesse, vous ne pouvez plus exposer que des etapes 2 
5 et 50." 


4969 PRINT “ -vous ne pouvez Jamais exposer une etape q 


ui vous ferait depasser les 1400 km." 

4979 GOSUB 5274 

4984 CLS:PRINT CHR$(24):" LA MARQUE ";CHR$ (24) 
4996 FRINT 


9608 FRINT " Autant de point que de bornes exposees ... 


es 
5914 PRINT “ Chaque botte exposee.......,...,.,.,...... 
100" 
9926 PRINT “ Les quatre bottes exposees.......,..,,...., 
...30û" 
9936 PRINT " Chaque coup-fourre......,..,.............. 
...300" 
5946 PRINT " Point de manche.....,...,,,,,,,..,,.... 
490" 
9659 FRINT “ Manche gagnee apres epuisement du sabot... 
300" 
5060 PRINT “ Manche gagnee sans etape 200.....,.,...... 
300" 
9670 PRINT " Capot........... ss ssssesessseneusensese 
908" 


5089 PRINT:PRINT "La partie se joue en 5640 points" 
5990 GOSUB 5278 

5100 CLS:PRINT CHR$(24);" LE JE U ";CHR$(24) 

5110 PRINT:FRINT “ L'ordinateur se chargera de jouer po 
ur 3 joueurs dont un sera votre coequipier.Il s'occuper 
a de donner les cartes ainsi que la gestion des coups-f 


“ porter a votre actif une prime de 36ÿ poin : 


2XXS 
3WN£ 


>KP< 


>FQ 
TRE 
NT 


FYV 


3CR< 


EG 
>OH< 
>EK 
>CK< 
>GL< 


PEM< 


#XN€ 


>KP£ 
200 
V6 
> AH£ 


1000 BORNES 


ourres." 
5129 FRINT 


9134 FRINT “Ainsi vous n aurez qu à VOUS OCCUPEez que PO : 


ser vos cartes" 
9146 FRINT 


5158 PRINT "Vos 6 cartes 5e trouvent à droite de la bar ? 


re verticale." 
5166 PRINT "En haut a droite 5e trouve le sabot et jes 
cartes jJetees." 


9179 FRINT "L'ordinateur s occupera de placer les carte ;2F: 


5 sur le tapis" 


3186 PRINT "Les cartes de votre equipe seront placees a :! 


u bas de l'ecran ,ceux de vos adver- saires en haut" 
9199 PRINT "La carte que vous tirerez se trouvera au c 
entre du tapis." 


9206 FRINT "Vous choisissez la carte en deplacant la fl : 


eche a l'aide de la barre espace puisvous validez avec 
la touche ‘C'" 
9214 PRINT 


9226 PRINT "Le chiffre sur les cartes du talon represen :DK 


te le nombre de cartes restant." 

9234 PRINT:PRINT:PRINT:PRINT “Bonne chance..." 
2246 GOSUB 5276 

9296 INF 1,6:INk 6,9:BORDER 9 

5260 MODE i:6010 4236 

9276 ‘s/p de presentation 

9286 LOCATE 1,25:FRINT "Tapez C° pour continuer"; 
9294 a$=INEEYS:IF a$="" THEN 5296 

9306 IF a$i:"c" AND a$:>"C" THEN GOTO 5296 

5314 RETURN 


LE ARMOR 
24 ‘* JEU DE 1606 BORNES  +# 
16 ‘#adapte sur Amstrad par # 
45 ‘x L. Gardeur fev 87% 
SO HHNEEEEAANTE 
6 MEMORY 32999 

79 CLS 

89 INF ,9:BORDER 6: INE 1,6 
9% LOCATE 19,2S:PRINT “Chargement en cours": 
198 LOAD “'data",33606 

119 RUN “'MILLE" 


CHOLET 25 


2KR< 


:PE: 
UC: 
:YD< 
3HE< 
>UF< 
HG 
> HH£ 
?EJ*< 
>DK< 
?CE{ 
FNC< 


SERVEUR 
MINITEL 


N'oubliez pas 
36.15 code MHZ 


ne 
A 
| A: À 


\ 
LS 
\ 


La B.A.L. permet un dialogue direct avec 
la rédaction. 

Les petites annonces ouvrent la porte aux 
bonnes affaires ! 


VISMEDHT 


EXPLOITEZ 


VOTRE 
AMSTRAD 


le livre + la cassette 


103 F FRANCO 


Jeux - Gestion 
Education - Domestique 
Impression de documents 


Un best-seller 


Bon de Commande 
a renvoyer à STAMP DIFFUSION. 17, rue Russeil - 44000 NANTES 


Exploitez votre Amstrad. 103 F - Port gratuit. 


Nom : Prenom 


Adresse 
Ci-joint chéque de 103 F 


TRUCS ET ASTUCES 


MEA CULPA 


La honte nous submerge. Avec FORMA- 
TEUR et EXPLOITEUR réunis (CPC 
n° 23), Laurent KUTIL donnait un 
volume maximal à vos disquettes ; 
hélas ! la variable x de la ligne 20 (qui 
devait contenir les adresses à ‘’poker'') 
n'était pas déclarée (en PASCAL, cela ne 
serait pas arrivé !). Les vieux birscards 
du BASIC auront compris qu'il fallait 
‘’poker'’ les cinquante cases-mémoires 
à partir de &OF80 (adresse du CALL), 
mais les autres n'étaient pas censés 
connaître le processus ; voici donc ce 
qu'il convient de faire : 

10 FOR N = &OF80 TO &OFB2 

20 READ A$:POKE N,VAL (''&'"+A$) 
30 NEXT N 

La suite est correcte et la voie est 
ouverte aux économie de disquettes. 


HEXA-TERRESTRE 


(suite) 


Dans la série HEXA-DECI, suite du feuil- 
leton avec quelques observations de Loic 
BRUNO d'Aix-en-Provence. 


1610 - 1:16A1 
1642 = 256: 


Ces petites formules nous permettent 

d'obtenir facilement une valeur décimale 

à partir d'une valeur hexadécimale. 
Ainsi, &7530 est égal à : 


(1*0)+(16*3)+(256*5)+(4096*7) 
soit 30000, et &C000 est égal à : 
4096*12. 


12 est l'équivalent décimal à &C. 
Pour passer de décimal en hexa, il suffit 
d'opérer inversement. 

Ainsi, 21367/4096 donne un quotient de 
5 (qui sera le chiffre des milliers du nom- 
bre hexa) et un reste de 887. 
887/256=3 reste 119. 119/16=-7 
reste 7. 21367d est donc égal à 5377h. 
Qu'en est-il des ‘‘chiffres-lettres'’ de 
l'hexa ? 48622/4096=-11 (&B) reste 
3566. 3566/256 - 13 (&D) reste 238. 
238/16 = 14 (&E) reste 14 (&E). 48622d 
est donc égal à BDEEN. 


ADRESSES 


Le même Loïc BRUNO remplace GRA- 
PHICS PEN x, par POKE &B338,x et 
MASK x, par POKE &B338,x2 en nous 
précisant que x2 est différent suivant le 
mode et qu'il ne faut pas modifier x 
quand on est en mode 2. 

Essayez également : POKE xxx,1,2 ou 3 
avec les adresses &B1C8 et B338 pour 
un 464 (&B7C3 et &B6A3 pour 464 et 
6128), ainsi que POKE xxx,x (:CLS) avec 
les adresses &B28F et &B290 pour un 
464 (&B72F et &B730 pour 664 et 
6128). 


36 


LISTINGS FACILES 


Saisir un programme est généralement 
une corvée et l'on est toujours intéressé 
par un truc qui nous permette de saisir, 
sinon dans la joie, du moins dans la 
bonne humeur. Le petit programme qui 
suit est celui qu’emploie Philippe CAS- 
TETS de Floirac. 


10 MODE 2:INPUT''Nbre de 
colonnes'';col: 
INK O0,26:BORDER 
13:INK1,0:WINDOW 1, 
col,1,25:PAPER#1,1:CLS # 1:CLS 
20 KEY 138,'','':KEY 139,CHR$(13) + 
‘DATA 
30 KEY DEF 64,0,97:KEY 
DEF 0,65,98:KEY 


DEF 57,0,99:KEY 

DEF 56,0,100:KEY 

DEF 49,0,101:KEY DEF 48,0,102 
40 DELETE 10-40 


La ligne 10 permet d'aligner la présen- 
tation écran sur la présentation papier, 
la ligne 20 redéfinit les touches ‘’ENTER" 
et ‘’.’" du clavier numérique, la ligne 30 
redéfinit les touches 1,2,3,4,5,6 du cla- 
vier comme a,b,c,d,e,f, ce qui permet, 
dans les nombres hexadécimaux, d'évi- 
ter toute confusion entre, par exemple, 
8 et B, et la ligne 40 efface le programme 
après exécution. 

Ce truc nous semble particulièrement 
pratique dans la saisie des DATAS, puis- 
que vous entrez cette commande par la 
frappe d'une seule touche. Et des 
DATAS dans CPC, il y en a ! 


| COHABITATION 


: Si PASCAL avait su qu'on le mettrait à 
la sauce TURBO (trop souvent, c'est le 
| turbot que l'on sert en sauce), quelles 
| eussent été ses pensées ? (La Reynière). 
| Laissons là ces digressions philosophico- 
| gastronomiques et penchons-nous sur 
les problèmes de cohabitation entre 
| TURBO-PASCAL et CPC 464. Il n'est 
| pas possible, avec un 464, d'utiliser 
TINST.COM qui permet de redéfinir les 
touches du clavier pour une simplifica- 
| tion des fonctions de contrôle. On peut 
cependant se servir de SETUP (qui se 
| trouve sur la disquette système), pour 
pallier l'inconvénient. Voici comment : 
| — Copiez SETUP.COM sur la disquette 
contenant la copie de TURBO-PASCAL 
puis lancez SETUP. 

— Répondez ‘‘Y'’ à toutes les questions 
jusqu'au message : ‘’ NO KEYBOARD 
TRANSLATION”"" ‘IS THIS CORRECT 
| (Y/N):"" répondez ‘’N”’. 
| — Tapez alors la liste : 


a (o) 3) 18 141 
a 1 Es 6 143 

[Eee 2 24 3::1142 

ES: 8 19 1 144 
a 9 12 146 145 
a 16 # 20 25 
a 66 252 147 22 
a 68 9 148 14 
a 79: 127-149: 1950 
f 


| — Si vous n'avez pas fait d'erreur, con- 
| firmez par ‘‘Y’’, sinon tapez à nouveau 
‘’N'' et corrigez. 


SRE SE ui Es 
| | TOUCHE NORMAL 

| | flèche haut ligne précédente 
| | flèche bas ligne suivante 


flèche droite colonne suivante 
flèche gauche colonne précédente 


<CLR> efface sous curseur 
<DEL> efface à gauche 
<COPY > recherche suivante 
<TAB> tabulation 

<ESC> 


d numéro_touche 
a numéro touche ns c 


— À la question suivante : ‘NO KEY- 
BOARD EXPANSION’’ ‘IS THIS COR- 
RECT (Y/N)'', répondez ‘’N'. 

— Tapez la liste : 


> 
[e) 
> 
pe) 


Ds O06DJOouBu 
>>>>>>>>—> 
DPPr0PPDDO 
>>> 7>>>>—> 
TO» nNUDO 


+ © © % © ® % © © © 
NDNN = = = = = md 


— Vérifiez vos erreurs et, si nécessaire, 
corrigez-les comme précédemment. 

— Tapez ‘‘’Y'’ à toutes les questions sui- 
vantes. 

Désormais, après chargement de la dis- 
quette modifiée, l'éditeur prendra en 
compte les commandes selon le tableau 
ci-dessous : 

Exécuter, c'est bien ; comprendre, c'est 
mieux ! L'entrée des KEYBOARD 
TRANSLATIONS permet de modifier l’af- 
fectation des touches frappées. La com- 
mande ‘’a O0 5 18 141’ permet d’'affec- 
ter à la touche O (flèche haut), soit la 
commande 5 si elle est tapée seule 
(= CTRLE, E est la cinquième lettre de 
l'alphabet), soit la commande 18 
(= CTRLR - comptez sur vos doigts !) 
si elle est ‘’shiftée’’, soit encore la com- 
mande 141 si l’on presse CTRL et FLE- 


CHE HAUT. > 
SHIFT CONTROL 
page précédente début texte 
page suivante fin texte 
mot suivant fin de ligne 
mot précédent début de ligne 
efface mot à droite efface ligne 


efface fin ligne 
recherche/remplace 
autotab on/off 
fin édition 


restore ligne 
recherche simple 
insère ligne 


insert/overwrite | 


La commande 141 est définie, par la 
suite, dans le menu ‘‘’KEYBOARD 
EXPANSIONS”’. Elle correspond à l'en- 
trée ‘a 13 A QAR’. CTRL+FLECHE 
HAUT va donc effectuer un retour en 
haut du fichier ( À Q AR). Simple, non ? 
Si vous désirez vous bricoler un éditeur 
personnel, vous le pouvez désormais. 
Attention, toutefois, au premier code de 


la touche ESC (66) qui doit toujours être 
égal à 252, sous peine de cafouillages. 
Sachez, d'autre part, que le code de DEL 
est 127. Vous trouverez les autres codes 
dans votre manuel TURBO. 

Remerciez, avant de sortir, Bruno TRIN- 
QUIER, de LA VALETTE, qui vous a con- 
cocté cet excellent truc si bien déve- 
loppé. 


BAS DE LAINE 


Les rois du bas de laine, les Ecossais, les 
radins, les Balladuriens, les ‘un sou est 


IDENTIQUE 


’ 


un sou’’, les Auvergnats (ies ‘’un chou 
est un chou}, les adeptes du porte- 
monnaie en peau de hérisson, que tous 
ces... économes sautent de joie ! Jean- 
Noël VILTARD leur fait économiser un 
boîtier 74 LS 32. 

Vous vous souvenez du convertisseur 
analogique/numérique 8 voies que Sté- 
phane BRANCHU vous présentait dans 
CPC n° 13 ? Eh bien, ceux qui n'auraient 
pas encore réalisé ce montage, qui bran- 
che leur micro sur le monde extérieur, 
peuvent le réalise” à moindre coût s'ils 
suivent le nouveau schéma et les quel- 
ques conseils connexes. 


Plutôt que de mettre G (barre) du 688 à 
la masse, le relier à IORQ (barre). Cela 
a pour effet de supprimer le 74 LS 32. 
L'auteur utilise un tel montage relié à un 
8255 (il espère ensuite le relier à un MEA 
8000). 


‘Le truc reste valable pour ceux d'entre 
vous qui auraient réalisé le montage en 
‘’wrapping'’. Les autres seront inconso- 
lables. 


LISTE DES AUTEURS 
DE TRUCS 


Les auteurs du mois figurent dans la pre- 
mière partie, ceux du mois précédent (les 
avais-je oubliés) dans la seconde. 

— Loïc BRUNO - 38, lot. de La Molière 
Route de Galice - 13090 Aix-en-Provence 
— Philippe CASTETS - rés. Pasteur Il 
Appt. 11 bat. À - 33270 Floirac 

— Bruno TRINQUIER - chemin du Partegal 
83160 Lavalette 

— Robert CABANE - 2, rue de La Pierre 
Levée - 75011 Paris 

— Daniel VANDENBROUCKE - 27, bd A. 
Paré - 59460 Jeumont 

D. Vandenbroucke s'inquiétait de savoir 
s'il allait recevoir une B.D. pour sa parti- 
cipation au concours. En fait, il a été 
publié dans le dernier HS. 

— Gérard BUGEL - 12, rue André Delon 
19100 Brives 

— Philippe LHOSTE - Groupement CTI 
STAT SATORY - 78013 Versailles 

— Michaël HOFFERT - 23, av. de Guise: 
57100 Thionville 


Pierre TACONNET 


PROTÉGER VOTRE AMSTRAD 


TOUS LES SACS ET HOUSSES SONT ADAPTÉS À CHAQUE TYPE DE MATÉRIEL ET LES PASSAGES DE CABLES SONT PRÉVUS. 


= DCE | 


r 


| 


[] Sac pour Amstrad (clavier) 
CPC 4641716640 6128C01PCW 8256 [] 
Coloris: bleu, gris ou sable 


Ü Sac pour moniteur Amstrad mono- 
chrome {1 couleur. C1 
Coloris: bleu, gris où sable 

400 F TIC 


: Housse pour Amstrad (claier) 
CPC 46406640 61280PCW 82561 
Coloris: beige, blanc, bordeaux, noir, 


130 F TTC 


} Housse pour moniteur Amstrad. :,, 
Coloris beige, blanc, bordeaux, noir, 
marron 


Prix 130 F TTC 


nonc 


Pochettes disquettes 3°” ou 3,5” 
!] pour 1 disquette 
[] pour 6 disquettes .... 
} pour 10 disquettes 
©? pour 32 disquettes .. 200 F TTC 
Coloris: gris, bleu ou sable 


Les sacs pour claviers AMSTRAD 464 - 664 - 6128 comprennent 1 poche pour le clavier plus 1 autre du même volume pour y ranger les accessoires 


lle 


17, rue Russeil - 44000 NANTES 


POUR COMMANDER Retournez-nous cette publicité en cochant le ou les pro- 
duits que vous désirez recevoir et en remplissant le bon ci-dessous. Pour les coloris, 
rayez les mentions inutiles 


@ Port PTT à ajouter au montant de votre commande  25F 
@ Joindre votre règlement par chèque ou mandat à votre commande. 


Prénom 


Signature 


TASWORD Saga .., 


Voici 3 ans la presse informatique saluait TASWORD 464 en ces termes: 
"Il n'y à pas de meilleure raison d'acheter un CPC que ce programme ‘! 
TASWORD 464 (+260.-ttc) fut suivi de TASWORD "D" MAIL-MERGE pour accommoder 
les disquettes et le 664. En 1985, TASWORD 6128 MAIL-MERGE  (TASWORD 
"D" et TASWRD 6128 sont vendus sur la même disquette à +360.-ttc) avec sa 
massive mémoire texte de 64Ko vit le jour et devait bientôt être accepté 
comme le standart sur le 6128 et les 464/664 avec extensions DK'tronics. 
1986 vit l'arrivée de TASWORD 8000 (+450.-ttc) qui rendait sa rapidité et 
sa mémoire au PCW 8256/8512 lui offrant par la même occasion le premier 
MAIL-MERGE incorporé et l'accès aux imprimantes externes. 1987 saluat 
l'arrivée des CPC AZERTY, TASWORD CPC fut vite, lui aussi, rendu conforme. 


Un vent de renouveau ,.,. TASWORD EC 


Le printemps 1987 vit la naissance de TASWORD PC, un vent de simplicité et 
de puissance (sans parler d'économie... +490.-ttc) souffle sur les 
"compatibles". Face aux mastodontes du traitement de texte, TASWORD propose 
à un prix calculé, une solution qui en fait plus; TASWORD PC fait avec 
efficacité ce que la majorité des utilisateurs souhaitent, il simplifie 
l'écriture. Un manuel complet et didactique, un programme d'auto- 
apprentissage et bien sûr MAIL-MERGE accompagnent TASWORD PC. 


Des talents de typographe .,, TASPRINIT 


TASPRINT accompagne TASWORD depuis le début et vous permet de faire des 
merveilles avec votre imprimante matricielle, cinq polices de caractères 


sur CPC, huit sur PCW et plus de vingt sur PC, plus sur ce dernier un 
créateur de polices simple et puissant. TASPRINT s'utilise aussi seul pour 
imprimer tout texte ASCII (Locoscript, Wordstar etc...). Sur PCW et PC, 


TASPRINT possède un mode "machine à écrire" très pratique pour les textes 
courts. (TASPRINT CPC +230.-ttc - PCW +260.-ttc - PC +350.-ttc) 


MASTERFILE S0O00 


Là ou les autres vous obligent à faire un choix entre fichiers en RAM 
rapides mais de capacité limitée, et des fichiers en accès direct sur 
disquettes, de grande capacité mais encombrants car de longueur fixe, 
MASTERFILE et le disque RAM du PCW travaillent ensemble pour vous proposer 
une grande capacité et un accès rapide à des données de longueur variables. 
100% en langage machine, entièrement piloté par menus, MASTERFILE 8000 est 
aussi accompagné d'un manuel didactique complet et de 10 exemples 
directement utilisables (adresses/étiquettes, facturier, bibliothèque, 
discothèque, gestion clientèle, gestion articles etc...). Fichier indexés 
ou non, champs illimités, fichiers relationnels, calculs entre champs, tri 
multicritère, tout, tout y est ! Aucun programme du genre sur PCW n'offre 
une telle puissance, flexibilité et convivialité (MASTERFILE PCW +550.-ttc) 
= | \ J: Demandez une documentation sur nos autres nouveautés: 

Gestion de compte bancaire sur CPC 
Multistat, statistiques multivariées sur CPC 
et nos autres programmes pour CPC, PCW et PC 


Vous trouverez les logiciels Sémaphore auprès des ces spécialistes --> 


France Disquette 

255, av. Berthelot 
69008 LYON 

34 rue de la ou lique 
42000 St. ETIENNE 


MERCI | 
23 rue le la Mouchetiere 


45140 SAINT-JEAN-DE-LA-RUELLE 


MAJUSCULE 

1-9 place Aristide-Briand 
20-29 rue de la Table-Ronde 
38200 VIENNE 


Micro nos 
4i rue du 4 septembre 
65000 TARDES 


Montaigne Informatique 
1431 av. G. CLemenceau 
14300 CLUSES 


pre 
31 rue Gambetta 
50800 VILLEDIEU LES POELES 


BY Electronic 
24 bis rue Ch. Mossant 
26300 BOURG DE PEAGE 


Informathèque 
8 rue des pe Bois 
08000 CHARLEVILLE-MEZIERES 


Microgiciel 
2 que Bonhomme 
62500 St OMER 


Blanc-Music 
rue ue oli 
20000 AJACCI 


HIFI Madison 
2 rue du G° Estienne 
15015 PARIS 


Caissa DRE 
62 av. G De Gaulle 
93110 ROSNY-SOUS-B0IS 


Contact'Eure 
19 rue de Colmar 
21009 EVREUX 


Micros & Robots 
15 rue Fructidor 
11100 CHALON SUR SAONE 


LOGIMICRO 
2 av. de Laon 
51100 REIMS 


Ordividuel 
20 rue de Montreuil 
94300 VINCENNES 


Esat Software 
55 rue du Tondu 
33000 BORDEAUX 


La Puce Savante 
8 bd de la Gare 
31500 TOULOUSE 


Proforma PSI 
3 rue de Lorraine 
25000 BESANÇON 


Micro Boutique 
9 rue de la Poyat 
39200 St. CLAUDE 


IGL 
48 Boulevard de la Liherte 
35000 RENNES 


FNAC - MAMMOUTH - MAJUSCULE 


General Video 
10 Bd. de Strasbou 
15010 PARIS 


BASE 4 
11 rue Samozet 
64000 PAU 


Loisir Informati 
39/41 rue de l'O 
14000 CAEN 


oire 


Loisitech 
Centre Terminal 98 
93106 MONTREUIL 


Computerment Votre 
22 rue Goupil - Bourgneuf 
17220 LA JARRIE 


Computer Market 
50 rue Antoine Dansaert 
B-1000 BRUXELLES 


Lobochrome 
13 rue de Fragnee 
B-4000 LIEGE 


Free-Time Ordimex 
3 bd. Bara 
B-7500 TOURNAI 


opte 
94 rte de La Plaine 
CH-1283 La Plaine 


Sémaphore Boutique 
6 Terrassière 
CH-1207 Geneve (Rive) 


AS Informatique 
197 Banné 
CH-2902 Fontenais 


Philosoft 
3 rte de Lausanne 
CH-1096 Cully 


DISTRIBUTION 


UBI-SOFT (1j 43 39 23 21 
SIS 50 38 94 95 
DDI(PCWI (1) 48 67.28 44 


Nous nous excusons vis à 
vis des revendeurs que 
nous aurions onnis de 
cette liste... s'ils se 
font connaître, nous les 
y incluerons volontiers. 


Autres pays, outre-mer k 
isolés, contactez: 
Semaghor 8 VPC, 

, CH-1283 La Plaine. 
Telephone 41 22 54 11 95 
VISA et EUROCARD accepte 


Nouveau en français ! 


CGRAFPBAD EC & EC 


La tablette à digitaliser économique 
et un logiciel de dessin assisté de 
hautes performances. Grafpad s'uti- 
lise sur PCW 8256/8512 ou PC "compa- 
tible". Le puissant outil de dessin 
des ingénieurs, architectes, instal- 
lateurs sanitaires, électriciens, 
créateurs de circuits électroniques, 
enseignants,... Son prix et sa 
simplicité d'apprentissage en font 
l'outil idéal pour les PME et les 
écoles. Manuel explicatif détaillé, 
programme et cassette "tuteur" audio 
en français. 

Modèle PCW 8256/8512 
Modèle PC "compatibles 


1990.- ttc 
2490.-— ttc 


Offre spéciale d'été 
Scanner D À R T complet 
Seulement 550.- ht 


Offre valable jusqu'au 30 juin 1987. 
Renvoyez ce bon à Sémaphore VPC et 
effectuez votre versement par mandat 
postal international ou indiquez 
votre numéro de carte VISA ou 
EUROCARD pour reçevoir votre Scanner 
par retour. 
Nom: RCE 
Prénom: Adresse exacte: 
Numéro postal: 

Ville: se AL 
No. CARTE VISA / EUROCARD (Biffer) 
Date de validité . . / CPC 23 
Signature: 


Bernard POISOT 


GENERATEUR 
BASSE FREQUENCE 
STEREOPHONIQUE 


Voici la transformation de votre 


CPC en un appareil qui rendra de 


nombreux services aux 


bidouilleurs. 


Un générateur de sons est un générateur 
basse fréquence (ou GBF), puisqu'un son 
est une basse fréquence. 

Un GBF est un instrument qui se trouve 
dans les ateliers et laboratoires où l'on 
étudie ou travaille sur des appareils qui 
traitent le son. 

Il permet d'envoyer des signaux 
électriques vers des amplificateurs, 
magnétophones préamplificateurs, etc 
en vue de tester leurs performances 
(vous pourrez ainsi savoir si votre stéréo 
mérite le label ‘Haute Fidélité'”, HI Flen 
anglais), de les dépanner ou de‘générer 
des fréquences en vue de diverses 
applications pour le bricoleur en 
électronique. 


VENONS-EN 
AU PROGRAMME 


La ligne essentielle qui génère la 
fréquence est 850. Le circuit introduit 
une restriction : La variation de la période 
se fait par paliers, et non de manière 
continue. 

Le reste du programme se charge d'une 
part des conversions, car les valeurs que 
nous mesurons ne sont pas les mêmes 
que celles du BASIC, et d'autre part de 
rendre l'utilisation facile. Les réglages 
seront faits à l'aide d’un seul doigt 
(inutile de lâcher les outils que nous 
tenons), où par la manette si le GBF est 
éloigné de la zone de travail. Les valeurs 
affichées sont celles que l’on utilise le 


40 


plus, ou qui sont directement visibles sur 
un oscilloscope. 

Toutes les grandeurs utiles se trouvent 
dans le tableau NOMBRE. Les indices 
pairs de ce tableau correspondent au 
canal droit et les impairs au canal 
gauche. Les affectations sont, suivant 
les indices : 

1 et 2 : fréquence mesurée 

3 et 4 : volume, valeur BASIC 

5 et 6 : période mesurée 

7 et 8 : période BASIC 

L'indication du niveau de sortie est issue 
d'un tableau VOL ayant pour indice le 
volume BASIC correspondant. La 
variable S est l'indicateur du choix du 
paramètre à modifier. La période réelle 
est de 62500/période du BASIC, et la 
fréquence est égale à 1/période réelle. 


MODE D'EMPLOI 


Le signal sera disponible à la prise JACK 
stéréo et en mono au haut-parleur du 
CPC et sur la broche 1 du port 
d'extension. 

Les fréquences, tensions crête et 
périodes sont indiquées par des 
afficheurs. On sélectionne la valeur à 
modifier avec les touches curseur ou la 
manette droite/gauche. La couleur de la 
fenêtre change. La modification se fait 
par haut/bas pour les valeurs les plus 
petites et +;/-, ou feu ET haut/bas pour 
des variations plus rapides. 


CARACTERISTIQUES 


Génère des signaux en principe carrés, 
de 62500 à 15, 26 Hz, en 4095 valeurs. 
La variation par paliers et les tolérances 
des composants du CPC ne permettent 
pas une grande précision. La stéréo 
permet l'utilisation de deux fréquences 
distinctes. Le niveau de crête maxi est 
de 300 mV pour une charge de 10 Ko. 
La variation de cette tension en 16 
valeurs est logarithmique. Les réglages 
se font par le clavier ou la manette. 


REMARQUES 
TECHNIQUES 


les signaux ne sont plus carrés aux 
fréquences les plus hautes. Le canal B 
sort sur les voies droite et gauche au 
moyen de résistances. De même, le 
canal son, qui commande le HP interne 
et la broche son du connecteur 
d'extension, est également relié aux 
canaux par des résistances, ce qui 
provoque un mélange. 

Si les deux voies sont actives, vous 
détecterez donc une petite composante 
de la fréquence du canal voisin. Cela 
s'attenue en reliant à la masse, la sortie 
son du connecteur. Ce n'est pas un 
court-circuit car les résistances citées 
plus haut protègent les sorties. Mais 
vous perdrez alors l'utilisation du HP 
interne. 

Le niveau de sortie varie en fonction de 
l'impédance de la charge. 

Si vous utilisez le GBF pour du 
dépannage, il est prudent de le protéger 
d'éventuels retours de l'appareil en 
panne : suppression du continu par 
condensateur de liaison, limitation des 
tensions à O, 6 V par une diode du genre 
1N 4148 dans le sens direct car cette 
valeur n'est jamais atteinte par la sortie. 
Lors d'une utilisation de deux signaux 
superposés sur une même voie, il peut 
se produire une combinaison de 
fréquences donnant d'inattendus 
résultats. Au pire, deux signaux peuvent 
s'annuler s'ils sont de même période et 
en opposition de phase. 

La synthèse stéréophonique des signaux 
peut en quelque sorte s'apparenter à 
l'utilisation de deux GBF distincts n'ayant 
que la masse en commun. Clin d'oeil à 
monsieur LISSAJOUS : au moyen d'un 
oscillo fonctionnant en XY et après avoir 
‘’arrondi’" les signaux par un 
condensateur de 100-330 nF en sortie 
pour des fréquences < 100 Hz (ce n'est 
pas superbe, mais enfin. ), on pourra 
voir des figures assez ‘décoratives’ se 
dessiner. 


15 ‘ GENERATEUR BASSE FREQUENCE STERED 


20: ‘ EERNARD FOIS5OT 
CR 

49 ‘ VALEURS DE DEFART 
45 


96 INK O,23:INE 1,6:INE 2,16:INE 3,18:DIM VOL (15) 

bÿ MODE 1:EORDER 9:PAFER G:PEN 1 

76 NOMBRE (3) =12: NOMBRE (4) =12: NOMBRE (5) =6, 16: NOMBRE (6) =1 

.: NOMBRE (7) =10: NOMBRE (8) =190 

86 H$=CHRS (246) : B$=CHRS (241) : G$=CHR$ (242) : D$=CHR$ (243) : 
fleches curseur 

85 ‘ 

99 ‘ 

95 : 

190 FOR I=9 TO 15 

126 READ VOL(I) 

139 NEXT I 

148 DATA 6,5,7,16,15,20,25, 30,40, 66,80, 100,150, 199,279, 

a) 

145 ‘ 

156 ‘ DEFINITION DES AFFICHEURS 

155 ‘ 

16 WINDOW #1,17,27,7,9 

170 HINDOW #2,29,39,7,9 

180 WINDOW #3,17,27,11,13 

199 WINDOW #4,29,39,11,13 

260 WINDOW #5,17,27,15,17 

219 WINDOW #6,29,39,15,17 

220 FOR S=1 TO 6: ‘AFFICHAGE DES NOMBRES 

230 PEN #S,3:PAPER #S,1:GOSUB 910 

232 NEXT S 


=, 


TABLEAU DES TENSIONS DE CRETE 


248 PRESENTATION 
245 ‘ 
259 PRINT: PRINT" GBF/CPC B.POISOT" 


26% LOCATE 21,5:PRINT"GAUCHE DROITE" 
276 LOCATE 2,8:PRINT“FREQUENCE Hz" 

286 LOCATE 2,12:PRINT “NIVEAU av" 

296 LOCATE 2,16:PRINT "PERIODE  mS" 

360 LOCATE 20,20:PRINT"CLAVIER MANETTE" 


319 PRINT:PRINT" SELECTION ":6$:D$;" 
":6$:D$ 
326 PRINT" VARIATION PRECISE  ";Hg;p$;" “HS: 
B$ 

30 PRINT" VARIATION RAFIDE  +- FEU+";H$:8$ 


344 S=2:PER=19:GO0SUB 839 
345 S=6:GOSUB 940 


AB: 
:YC< 
AD“ 
?FE< 
:6K< 
2MF< 


AR 


FYH£ 
2KJ< 


LP: 
:JK< 
#MQ< 
AE 
?YD< 
?ME< 
»QF*< 


5KL£ 
?EG< 
>LM£ 
: JH 
?TJ< 
?GK< 
?QL+ 
#KC< 
>UD< 
?JE< 
2PF< 
> EH< 
#KL£ 
?KG< 
:LME 
>PH< 


)LJ< 
?FK£ 
?XL€ 
>UM< 
>CD< 
?BE< 


#GF< 


?FG< 


TOUT SUR SOUND 


359 S=5:G0SUE 949 

399 5=1:FER=100: PAPER #5,2:GDSUB 830 
466 

419 ‘ SAISIE ET TRAITEMENT DES ENTRÉES 
428 

430 IF SQ(1)4128 THEN GOSUB 1170: 

NTE SUR LE CANAL GAUCHE 

440 IF SQ(4)<128 THEN GOSUB 1156: 

NTE SUR LE CANAL DROIT 

459 AS=INÉEYS: IF A$="" THEN 474 


464 A=JOY(6):IF A$<>;D$ AND 4‘>8 THEN 516: 


CTION À DROITE 

470 PAPER #S,1:GOSUB 919 
480 S=S+1:1F S=5 THEN S=i 

499 PAFER #5,2:G0SUB 919 
990 GOTO 434 

510 IF A$<:6$ AND A‘>4 THEN 569: ° 
TION À GAUCHE 

520 PAPER #S,1:GOSUB 919 
30 S=S-1:IF S=0 THEN 5=4 
949 PAPER #S,2:G0SUB 914 
996 GOTO 436 


2FJ< 
>VPE 
?DE< 
2GF< 
:FG< 
PAS D'ATTE >KH< 


PAS D'ATTE >VJ< 


SELEC UG“ 


>AH< 
5 JJ< 
#DK€ 
?XL< 


964 IF S=1 OR S=3 THEN FER=NOMBRE (7) ELSE FER=NOMBRE(B) :KM< 


579 IF A$<H$ AND A£:1 THEN 610: 
CTION EN HAUT 


SELE >ZN< 


580 IF S€3 THEN V=-1:G0T0 191507 DIMINUTION DE LA :VP< 
PERIODE (AUGMENTATION DE LA FREQUENCE) 
596 NOMBRE (5) =NOMBRE (S)+1:IF NOMBRE (S)=16 THEN NOMBRE (S >GUX 


)=0 

600 GOSUB 810:G0TD0 436: 

ATION DU VOLUME 

619 IF A$<2B$ AND A2 THEN 650: 

ION VERS LE BAS 

620 IF S>2 THEN 636 ELSE V=1:G0T0 1936: ° 


AUGMENT LG: 


SELECT 2NH< 


AUGMENTAT UJ< 


ION DE LA PERIODE (DIMINUTION DE LA FREQUENC 

E) 

62% NOMBRE (5)=NOMBRE (S)-1:1F NOMBRE (5)<@ THEN NOMBRE (S) :BK£ 
=19 

649 GOSUB 816:G0TO 436: DIMINUT >NL< 
ION DU VOLUME 


650 IF A$<>"+" AND A$<:"3;" AND A>17 AND A&> 33 THEN 69 >NM: 


9:° SELECTION RAPIDE HAUT 


660 IF SK3 THEN V=INT(FERX-0.2)-1:G0T0 1036 


670 NOMBRE (S)=NOMBRE (5) +4: IF NOMBRE (S)>15 THEN NOMBRE(S :JF< 


)=0 
689 GOSUB 810:G0T0 456 


690 IF A$<>"-" AND A<>18 AND A£>34 THEN 430: 


CTION RAPIDE BAS 


SELE >DR£ 


700 IF S>2 THEN 719 ELSE V=INT(PER#9,2)+1:G0T0 1030 #XH< 
710 NOMBRE (5) =NOMBRE (S)-4:1F NOMBRE (5) <Q THEN NOMBRE (5) >DJ* 


=15 

720 GOSUB 810:G0T0 458 

890 ‘ 

819 ” EMISSION DU SON 
829 ‘ 


30 IF S=1 OR S=3 THEN CA=1 ELSE CA=4:° 
UIVANT S IMFAIR OÙ PAIR 


>TK< 
>HJ< 
?EK< 
KL 


CANAL A OÙ C 5 :XM< 
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840 1=2+(CA=1) : NOMBRE (1) =62500/NOMBRE (1+6) : NOMBRE (1+4)= > 


1599/NOMBRE (1) 
850 SOUND 128+CA,FER, 232767, NOMBRE (2+1) 
900 
910 ‘ AFFICHAGE DANS LES FENETRES 
929 
20 CLS#S:IF S=3 OR 5=4 THEN 970 
946 NOMBRE (5) =ROUND (NOMBRE (5), 33 : CLS#S 
950 LOCATE#S, 11-LEN(STRS (NOMERE (5) }), 
) 
96 RETURN 
979 VOL=VOL (NOMBRE (5) ) 
980 LOCATE#S, 11-LEN(STRS (VOL) : ,2:FRINT#S, VOL 
990 RETURN 
1600 
1919 MODIFICATION DE LA FERIODE 
1926 
1939 PER=FER+4V: IF PERSI THEN FER=4095 ELSE IF PER4095 
THEN FER=i 


1949 IF S=1 OR S=3 THEN NOMBRE (7)=FER ELSE NOMBRE (B)=FE ; 
R 

1959 .GOSUB 836:1=5:5=5+4:G0SUB 946:S=T:G0T0 456 

1196 

1119 ‘PAS D'INTERRUFTION DE LA FREQUENCE 

1126 

1136 T=6:S=1:FER=NOMERE (7) :GOSUB 819:S=T 


1149 RETURN 
1159 T=6:5=2:FER=NOMBRE (8) : GOSUB 814:S=T 
1169 RETURN 


Je désire recevoir 


|__| Classeur(s) THEORIC : 80F 
__| Classeur(s) AMSTAR : 60 F 


S © 


2: FRINT#S, NOMBRE (S :VQ: 


è WW 


#ED: 


PROTEGEZ 
VOS REVUES ! 


BON DE COMMANDE CLASSEUR (port inclus) 


NOM Prénom 
| Adresse 
Code postal Ville 


| Classeurs) PCompatibles Magazine : 60 F 


Ci-joint chèque d… 
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Une ligne téléphonique 
est à votre disposition, 
vous mettant en contact 
direct avec la rédaction. Ceci 
est un service sans égal pour tous 
vos problèmes d'ordre TECHNI- 
QUE ! Respectez simplement les 
horaires et les jours que nous vous 
indiquons : 

MERCREDI de 9h00 à 12h00 0 
de 14h00 à 17h00. 

VENDREDI de 9h00 à 12h00 seu- 
lement. 

Tout appel en dehors de ces ni 
neaux sera refoulé : ne dépensez 
pas inutilement votre argent ! 
Le numéro : 


LE 
99.52.98.11 & 


ATTENTION ! Pour vos problèmes 
d'abonnements ou de commandes, 
appelez en dehors de ces créneaux. 


A 


| Classeur(s) CPC : 60F 


| Classeur(s) MEGAHERIZ : 80 F 


Signature 


LES VRAIS LIONS 
PROGRAMMENT 


É € 


F aunom nues a are PEUR La Haie aie de Pan - 35170 BRUZ 


Stephane CLOIREC 


CSAU"TIT:E;) 


Vous avez vu, le mois dernier, comment 
effectuer des entrées et des sorties à 


FONCTIONS 
PREDEFINIES 


l’aide des instructions READLN et WRITELN et comment affecter des valeurs à des 


.— ! 
.— 


variables grâce à ’ 


. Et maintenant, vous voudriez bien faire quelque chose de 


pratique avéc ces intructions. C’est pourquoi nous allons voir aujourd’hui les diffé- 
rentes fonctions dont vous pouvez disposer avec PASCAL TURBO. 


Tout d’abord, qu'est-ce qu'une fonction ? En schématisant, une 
fonction est un sous-programme activé à partir de votre sec- 
tion exécutable (Bloc Instructions) par un appel de fonction. Cet 
appel est automatiquement fait lorsque l'IDENTIFICATEUR de 
la fonction est rencontré à l'exécution. Chaque fonction est donc 
une partie séparée d'un programme. Elle utilise en général un 
ou plusieurs PARAMETRES dont elle se sert pour calculer une 
valeur (par exemple) qu'elle retourne au programme une fois 
son travail effectué. 

Nous allons passer en revue une partie des nombreuses fonc- 
tions prédéfinies par PASCAL TURBO. Puisque les fonctions uti- 
lisent des paramètres et puisque chaque variable doit être décla- 
rée (dans la partie ‘’Variables’’ du Bloc Déclaration) comme 
appartenant à un ‘‘type’’ connu (INTEGER, REAL, CHAR,...), 
vous vous doutez bien que l'appel des fonctions ne s'effectue 


pas d'une manière totalement anarchique et qu'elle obéit à cer- 
taines règles auxquelles il est impossible de se soustraire. La 
liste des fonctions se structurera donc de la manière suivante : 


— Fonction : 

Nom_de_Ja_Fonction 

— Utilité : 

Décrit le travail réalisé par la fonction 

— Syntaxe : 

Syntaxe Pascal de la fonction 

— Conditions d'entrée : (C.E.) 

Donne le type du ou des paramètres qu'il est nécessaire de four- 
nir à la fonction pour qu'elle puisse s'effectuer. 

— Conditions de sortie : (C.S.) 

Donne le type du résultat obtenu après l'exécution de la 


fonction. 
60 00 
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: Jean-Luc AULNETTE 


Illustrations 


LES FONCTIONS MATHEMATIQUES 
La 


On obtient donc la fiche suivante pour le Cosinus : 


Le Pascal a souvent été taxé de ‘‘langage scientifique‘ car il 
était, en premier lieu, destiné à des étudiants. Il n'est par con- 
séquent pas étonnant de trouver de nombreuses fonctions 
mathématiques à disposition dans PASCAL TURBO. Je vous 
invite, si quelque chose ne vous paraît pas très clair, à vous 
reporter aux exemples donnés sur le listing n° 1. Je vais tout 
d'abord m'attarder à vous disséquer une fonction connue pour 
éclaircir les esprits. 

Prenons, par exemple, une fonction simple de trigonométrie, le 
Cosinus (tableau 1). s 

Le cosinus d'un angle nous donne une longueur. Il faudra donc 
fournir à la fonction une valeur d'un angle et elle nous retour- 
nera la longueur correspondante. 

Le PASCAL TURBO travaille en radians. La valeur de l'angle 
devra donc être réelle si celui-ci parcourt toutes les valeurs entre 
O et 2*PI radians (soit de O à 360 degrés). 


Remarque : 

É'ensemble des nombres entiers étant inclus dans celui des nom- 
bres réels, il est bien entendu possible, pour une fonction qui 
‘’marche” avec des nombres réels, d'effectuer ses calculs avec 
_ des nombres entiers. 


* Le résultat du Cosinus d'un angle étant compris entre - 1 et 1, 
-_ il sera toujours du type réel. 

ple 1? du listing n° 1 montre une application ‘‘standard'" 
de l'utilisation de la fonction Cosinus. 


TABLEAU 1 


Fonction 
Utilité 
Syntaxe 


=COS 
: Calcul le Cosinus d'un angle 
: Résultat : = Cos (Angle) 


Cond. entrée 
Cond. sortie 


: Angle est réel (ou entier) 
: Résultat est réel 


À partir de cette base, il est bien entendu possible d'effectuer 
diverses variations : les variables ne sont pas obligatoires. Les 
syntaxes suivantes sont donc aussi valides : 


— Résultat := Cos (1.57) ; (on remplace Angle par une valeur 
donnée) : 

— Writeln (Cos (Angle)) ; (on affiche directement la valeur obte- 
nue sans passer par la variable Résultat) 

— Writeln (Cos (Pl)) ; (on n'utilise pas de variables : Pl est défini 
par défaut) 


Sur le principe de cette fiche, nous allons passer en revue les 
différentes fonctions mathématiques prédéfinies par PASCAL 
TURBO. La liste est donnée par ordre alphabétique (tableau 2). 
Remarque : 

Deux erreurs sont fréquentes lorsqu'on utilise les fonctions 
mathématiques : 

— Calculer des sinus, cosinus.. avec des valeurs en degrés alors 
que l'ordinateur travaille en radians. 

— Confondre les fonctions SOR (racine carrée du BASIC mais 
carré du PASCAL) et SORT (Racine carrée du PASCAL). 


Conversions : 


œ = (7 x 180/x 
degrés radians 
a = a x 180/200 
degrés grades 
a = a x 200/r 
grades radians 
Cercle trigonométrique : OM = 1 


sin Œ 
Li = —_— 
180° 0 
COS « =OA/0OM 
SIN &œ =OB/OM ._ 
TAN @  =SIN æ /COS a = OB/0A 


3x/2 = 270° 


Fonction 
Utilité 
Syntaxe 
C.E. 
CS. 


Fonction 
Utilité 


Syntaxe 
C:E. 
CS. 


Fonction 
Utilité 
Syntaxe 
G.E. 


C.S. 


Fonction 
Utilité 
Syntaxe 
C.E. 
C.S. 


Fonction 
Utilité 


Syntaxe 
C.E. 
CS. 


Fonction 
Utilité 


Syntaxe 
C.E. 
CS. 


TABLEAU 2 


ABS 

Calcule la valeur absolue d’un nombre 
Résultat : = abs (valeur) ; 

Valeur est réelle ou entière 

Résultat est 

- réel si valeur est réelle ; 

- entier si valeur est entière. 


ARCTAN 


Calcule l'arc-tangente d'un nombre, c.à.d. 


l'angle dont le nombre est la valeur de la 
tangente 

Angle := Arctan (Valeur) ; 

Valeur est réelle (ou entière) 

Angle est réel et est exprimé en radians 


cos 

Calcule le cosinus d'un angle donné 
Résultat : = Cos (Angle) ; 

Angle est réel (ou entier) et Angle est obli- 
gatoirement en radians 

Résultat est réel 


EXP x 
Calcule l'exponentielle d'un nombre e 
Résuitat : = Exp (Valeur) ; 

Valeur est réelle ou entière 

Résultat est réel 


FRAC 

Calcule la partie fractionnaire d’un nombre 
(c'est la différence entre le nombre et sa 
partie entière) 

Résultat : = Frac (Valeur) ; 

Valeur est réelle (ou -entière) 

Résultat est réel 


INT 

Calcule la partie entière d'un nombre (le 
plus petit nombre entier inférieur ou égal 
au nombre considéré). Attention Int (- 2.5) 
donne - 3 

Résultat : = Int (Valeur) ; 

Valeur est réelle (ou entière !) 

Résultat est réel (Eh oui !) 


Fonction 
Utilité 
Syntaxe 
C.E. 
C.S. 


Fonction 
Utilité 
Syntaxe 
C.E. 


C.S. 
Fonction 


Utilité 


Syntaxe 
C.E. 
GC.S: 


Fonction 
Utilité 


Syntaxe 
C.E. 
CS. 


LN 

Calcule le logarithme népérien d'un nombre 
Résultat : = Ln (Valeur) ; 

Valeur est réelle ou entière 

Résultat est réel 


SIN 

Calcule le sinus d’un angle donné 
Résultat : = Sin (Angle) ; 

Angle est réel (ou entier 

Angle est obligatoirement en radians 
Résultat est réel 


SOR 

Calcule le carré d'un nombre. Attention, 
pas le confondre avec le SOR du BASIC 
qui signifie, lui, racine carrée 

Résultat : = Sgr (Valeur) ; 

Valeur est réelle ou entière 

Résultat est 

- réel si valeur est réelle 

- entier si valeur est entière 


SORT 

Calcule la racine carrée d’un nombre. 
Attention : cf. SQR 

Résultat : = Sagrt (Valeur) ; 

Valeur est réelle ou entière 

Résultat est réel 


Frogram Exemple_du_Cosinus (Input ,Output ): 


Var Angle, { Def 
Resultat : Real: 


{ Nom du programme ) 


inition des variables } 


Begin 
Cirser: ( Efface l'ecran. ) 
Write (Output, Entrez votre valeur de 1° ‘angle : ):; 
Readin (Input ,Angle): 
Resultat := Cos (Angle); 
Writeln (Output, Le cosinus de',Angle,' radian(s) est ',Resultat ): 
End. © 
Frogram Fonction_sinus et conversions (Input Output): 
{ Remarquez dans cet exemple que 
{ les conversions d angles ne ser ) 
Var Angle_radians, { -vent qu'a la presentation et n°) 
Angle_degres, { interviennent pas dans le calcul) 
Angle grades, € de la fonction Sinus qui reste 
Resultat : Real; { calculee en radians. 
Begin 
Cirseri 
Write (Output, ‘Angle en degres 7? ‘); 
Readin (Input ,Angle degres); 
Angle radians := Angl 


Angle_grades := Angle 
Resultat := Sin (Angl 
Writeln (Output); 


Writeln (Output, sin ,Angle degres,' degres =sin',Angle radians,  radians ): 


Writein (Output, =sin',Angle grades,’ grades ); 
Writeln (Output, =! Resultat): 
End. 

{ REM: Si vous rentrez un angle de 180 degres, vous pouvez voir que } 
la precision des calculs n'est pas totale: on ne trouve pas ) @ 
zero, mais 0.00200000000:6:77788071 ? 

ET RS A RE EE CE 
Program Essai _des_fonctions_mathematiques_No_1 (Input Output); 


Var 


{ On utilise les fonctions ) 


Valeur , € Exp, Ln, Sar, Sagrt. 
Resultat_1, 
- Resultat _2 : Real; { Tous les resultats obtenus } 
{ doivent etre egaux à la va ) 
{ -leur d'entree. } 
Begin 
Cirseri 
Write (Output, Entrez votre valeur : ); 
Readin (Input ,Valeur); 
Writeln (Output): 
Resultat_1 := Ln (Exp (Valeur)); 
Resultat_2 := Exp (Ln (Valeur ))3 
Writeln (Output ,Resultat_1,Resultat_2)3 
Writeln (Output): 
Resultat_1 := Sart (Sqr (Valeur)); 
Resultat_2 := Sar (Sart (Valeur))3 
Writeln (Output ,Resultat_1,Resultat 2); 
End. { Dans l'ensemble, les calculs sont justes a quelques ) |] 
{ exceptions pres. ex: Valeur 18 ) 
4 Î 
Program Essai_des_fonctions_mathematiques_No_2 (Input ,Output)3 
Const Entier _1 = 10; { Faites des essais en modifiant ) 
Entier _2 = -5: { les types des variables dans 
Reel _1 = 1.5; { les fonctions. Certaines fcts ) 
Reel _2 = -2.25 { peuvent surprendre. } 
{ ex. Int retourne un nbre reel! ) 
Var Valeur _ent, 
Integer 
Valeur _reel, 
Resultät_reel : Real; 
Begin 
Cirser; 
Resultat_ent := Abs (Entier_2): 
Resultat_reel := Abs (Reel_2); 
Writeln (Output, Abs: ‘,Entier_2, Resultat _ent): 
Writeln (Output, 'Abs: ‘,Reel_2,Resultat_reel); 
Writeln (Output) 
Resultat_reel := Int (Reel_1); 
Writeln (Output ,'Int: ‘,Reel_1,Resultat_reel); 
Writeln (Output); 
Resultat_reel := Frac (Reel_2); 
Writeln (Output, 'Frac: ‘,Reel_2,Resultat_reel); 


Writeln (Output); 


Resultat_reel 1= Frac (Reel_2) + Int (Reel _2); 
Writeln (Output, 'Frac + Int ‘,Reel_2,Resultat_reel); 


End. 
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URBO 


ASTUCES 


Yves GERAULT 
Stéphane CLOIREC 


Nous vous proposons aujourd’hui deux petits programmes prati- 
sr qui vous permettront, nous l’espérons, d'éviter certains 


ésagréments. 


A LA RECHERCHE DU FICHIER PERDU 


Dans la revue CPC du mois de février, 
Gilles BEILVERT nous offrait une 
méthode pour récupérer un fichier source 
édité sous Turbo Pascal lors d'une ten- 
tative de sauvegarde sur une disquette 
non initialisée. || concluait que, grâce à 
lui, nous pouvions économiser un voyage 
à Lourdes. Avec le programme 1, je per- 
mettrai plus modestement au lecteur 
d'économiser le tube d'aspirine néces- 
saire à toutes ces manipulations ! 

Il suffit de rentrer le programme 1 et de 
l'avoir en version COMPILEE sur une dis- 
quette configurée CP/M (sur laquelle il 
reste évidemment de la place). Lorsqu'un 
tel incident vous arrive, placez cette dis- 
quette dans le lecteur et tapez 
<RECUP> (ou le nom que vous avez 
donné au récupérateur) et vous retrou- 
verez alors le fichier perdu sous la forme 
FICHREC.DAT sur cette disquette (d’où 


R.electronique 


la nécessité d'avoir de la place). 

Les valeurs $8118, $9B06, $7BF4 sont 
celles qui apparaissent sur votre écran de 
présentation après les textes <text. 
:>et<free:> suivant que vous ayez 
répondu Ÿ ou N au chargement des mes- 
sages d'erreurs. Ces valeurs dépendent 
du type d'ordinateur 464, 664, 6128. 
Un peu plus simple, non ? 


MODIFIONS LA CONFIGURATION 


Vous l'avez sûrement remarqué, lorsque 
vous tapez Q pour quitter Turbo Pascal, 
celui-ci rend la main au CP/M après avoir 
réinitialisé les couleurs ‘’standard'' qui 
sont particulièrement désagréables 

(encre noire sur fond bleu brillant). Il est 
facile de remédier à cet inconvénient. Il 
vous suffit de taper le programme 2 qui 
va se charger de tout. Les couleurs choi- 
sies par défaut sont celles de Turbo Pas- 
cal (caractères bleus sur fond blanc-gris 
avec un bord rouge). Libre à vous de les 
modifier. Il faudra alors changer les 
valeurs indiquées sur le listing pour les 


remplacer par celles de votre choix. 
Vous pouvez remarquer que, par précau- 
tion, le programme 2 commence par 
effectuer une copie de sauvegarde de 
Turbo Pascal avant les modifications. La 
version transformée de Turbo s'appellera 
TURBONEW.COM. 

En raison de l'importance de la place 
mémoire nécessaire au fonctionnement 
de ce programme (on crée en effet un 
buffer de 25 Ko pour effectuer la copie 
de Turbo), il sera obligatoire de le com- 
piler sur une disquette sur laquelle il reste 
assez de place pour la nouvelle version. 
Par la même occasion, le listing 2 va 
rajouter une nouvelle touche aux com- 
mandes habituelles. La seule facon d'ef- 
facer le caractère se trouvant sous le cur- 
seur dans l'éditeur de Turbo est de frap- 
per <CTRL-G>, la touche <CLR> du 
clavier de votre Amstrad étant désacti- 
vée. Le programme va se charger, tou- 
jours en modifiant la configuration stan- 
dard de Turbo, de réassigner à sa juste 
fonction cette touche si pratique | 
Bonne programmation |! 


Debut Te: 1 +$611E: 
Lebult $7EF 43 
Fin Text +$9E0G: 
62 RUE DU G1 DE GAULLE 
94438 CHEHNEVIERES / M | Eich | 
(16.1) 45,76.73.13 | Liane Sérina 1271 
Le Specialiste AMSTRAL Pre dr 
ET COMPATIBLES PC | : 1. 


46 


TURBO ASTUCES 


False: 
an (Fich, FICHREC.DAT 21: 


charge les messages d'erreurs #f/N 400: 


L Then 1 := Debut Text _ 1 —- 1 else 1 := Cebut Text 2 — Ls 


n 


1+ 


[a 
= Membiis 


[a .1Zo1 Then Ligne :=# Liqne + Chr (\Ascii's 
© Then Fini 5e True: 
= 10 ) or Fini: 
If nat Fini Then Writeln (Fich,lignei: 
Writein (Ligne:: 
Until { i = Fin Text ) or Fini: 


Close (Fichis 


” : _—— » 


Frogram Init_couleurs; 


Const 
Taille _ bloc = 128; 
Nb_bloc = 200; 

Var 
Tampon : Array C1..Nb_bloc,i..Taille bloc] of Byte: 
Nb_bloc_lu : Integer: 
Fich_entree, 
Fich_sortie : File; 
1 : ji : Integer: 

Begin 
Cilrscr: 


Writeln (‘Je cree le fichier TURBONEW.COM'): 
Assign (Fich_entree,  TUREO.COM'); | 


Assign (Fich_sortie,  TURHONEW. COM"); { Initialisation des fichiers 
Reset (Fich_entree);: { en entree et en sortie : > 
Rewrite (Fich_sortie): { —* on lira TUREO.COM > 
{ —} on ecrira dans TUREONEW } 

Repeat 

Blockread (Fich_entree,Tampon,Nb_bloc,Nb_bloc_lu);: 

Blockwrite (Fich_sortie,Tampon,Nb_bloc_lu); { On effectue d'abord : 

Writeln (Nb_bloc_lu); { une copie de sauve- 3 
Until Nb_bloc_lu = @; { On affiche a chaque }>{ garde de TUREO. > 
Close (Fich_entree);: { passe le nombre de 7} 
Writeln (‘Fichier cree."); { blocs charges. > 
Writeln (‘Je modifie les couleurs et je configure la touche CLK."'): 
Reset (Fich_sortie); { On se positionne au debut du fichier. } 
Blockread (Fich_sortie,Tampon,132):£{ On lit les deux premiers blocs. F 


Tampon C1,1271]:=1; 


Tampon [C1,1281]:=1; { On met l'encre en bleu. > 
Tampon C2,3]1:=135; 
Tampon 3 


3: { On met le papier en blanc. > 


Tampon ; 

Tampon [2,71]:=3; { On met l'entourage en rouge. 2 
Writeln (‘Couleurs modifiees."'); : 
Tampon [1:2,87]1:=16; { On configure la touche CLR. 3 


Writeln (‘CLR configuree."); 
Reset (Fich_sortie); { On se repositionne au debut du fichier} 
Blockwrite(Fich_sortie,Tampon,132);°{ On recopie les deux blocs modifies. n 
Writeln (‘Fin d''execution."); 


Ciose (Fich_sortie); 


End. 
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UTILITAIRE 


ous l’avez sans doute constaté, la présentation correcte d’un 

texte à l’écran n’est pas évidente à partir du BASIC Amstrad. 

CPC vous propose d'utiliser une RSX, située en &9C40 (40000 
en décimal) afin de pallier ce manque. 


MODE D'EMPLOI 
DE L'EXTENSION RSX ICEN 


SYNTAXE DE L'INSTRUCTION 


ICEN,P1:Canal,P2:C$,P3:Cx,P4:Cy, 
P5:interligne,P6:Nb.Caractères, 
P7:Mode justif. 


PARAMETRE P1 : 
Sélection du périphérique de sortie 


3 valeurs sont possibles pour ce paramè- 
tre. O : la sortie des données se fait uni- 
quement à l'écran. 4 : la sortie des don- 
nées se fait à l'écran et sur l'imprimante. 
Notez que dans ce cas la largeur du texte 
imprimé sera égale au nombre de colon- 
nes affichées, ce qui peut être léger si 
vous travaillez en mode O. 8 : la sortie 
de texte ne se fait que sur l'imprimante, 
on obtient donc deux formats différents 
pour la même chaîne. Par exemple 
A$=textexxx..:ICEN,O,  a$,x,y,int,3 
5,mode ICEN,8,  a$,x,y,int,80, 
mode, affiche un texte de 35 colonnes 
sur l'écran et 80 sur l'imprimante. Une 
valeur différente de O, 4 ou 8 ne provo- 
que aucun affichage. 

Le saut de ligne de l'imprimante est de 
1 après chaque sortie, il ne peut être aug- 
menté qu'à partir du BASIC, de même 
pour les sauts de page. 


PARAMETRE P2 : 
La chaîne à afficher ou imprimer 


Certains caractères (de O à 32) ne sont 
pas affichables, mais correspondent à 
une action à exécuter par le programme, 
ceux commandant les fonctions : Pen, 
Paper, inversion vidéo, effacement total 
ou partiel de l'écran, modes opaques ou 
transparents, clochette, interrupteur de 
curseur, set border ; peuvent être inclus 
dans la chaîne. Les contrôles de mouve- 
ment du curseur sont à déconseiller sauf 
cas exceptionnels. 

La coupure des lignes s'effectue sur les 
espaces ou les symboles de ponctuation 
suivants : ” LEE dE ", ainsi que sur 
les codes de contrôle. Les espaces situés 
autour d'une coupure sont supprimés. 
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Les codes de contrôle ne sont pas pris 
en compte dans le comptage des carac- 
tères et sont ignorés par l'imprimante. Le 
symbole d'élévation à la puissance (1) 
permet d'insérer des espaces supplé- 
mentaires ignorés des fonctions coupure 
et justification. Ceci permet de décaler 
le début d'un texte à justifier. Ex 
A$='TEXTE...' commencera à la 
colonne requise par les paramètres, 
A$='TITITEXTE..." décale le début du 
texte de 4 colonnes. L'effet est identi- 
que sur l'imprimante. 


P3 : Colonne 
P4 : Ligne 
P5 : Interligne 


Le premier de ces 3 paramètres ne sert 
qu'en mode justifié non centré, nous y 
reviendrons par la suite. Le second indi- 
que au programme à quelle ligne d'écran 
commence le texte. L'imprimante ne 
tient pas compte de cette valeur. 
Enfin, le troisième fixe l'interligne. Lors- 
que le texte est coupé, la ligne suivante 
s'affiche P5 lignes plus bas. L'impri- 
mante reçoit aussi cette commande. 


P6 : Nombre de caractères par ligne 


Toute chaîne de longueur supérieure à P6 
est coupée et la suite renvoyée P£ lignes 
plus bas. Si P6 est plus grand que le 
nombre de colonnes écran, le pro- 
gramme calcule P6 = P6/2. Si vous n'ob- 
tenez pas le résultat escompté, revoyez 
ce paramètre. 

Si P6<3 : P6-nombre maximum de 
colonnes écran. 


P7 : Mode justif. (définit la présentation) 


P7=0 : centre le texte sans le justifier. 
Toutefois, si le nombre de caractères à 
sortir est impair, le programme insère un 
espace supplémentaire s'il peut trouver 
un séparateur où un espace permettant 
un centrage parfait. P3 est inopérant. 
P7 =2 : justifie le texte sans le centrer, 
le paramètre P3 détermine la colonne de 
départ. Si P3+P5 >nombre de colonnes 
écran : P3=0. 
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P7=1 ou 3 : idem que ci-dessus, mais 
la dernière ligne sortie n’est pas justifiée. 
P7 =4 : justifie et centre le texte. P3 est 
inopérant. 

P7-5: centre et justifie le texte sauf la 
dernière ligne. P3 est inopérant. 


REMARQUES ET 
INSTRUCTIONS DIVERSES 


Le programme comporte deux messages 
d'erreur. ‘MOT TROP LONG" : signifie 
que P6 est trop petit pour un mot. Le 
message apparaît, juste avant la sortie 
du mot incriminé. Pour y remédier, insé- 
rer un séparateur, un espace où un 
CHR$ (0). Sinon, augmenter la valeur de 
P6. 

‘MAUVAIS PARAMETRES" : le nombre 
de 7 paramètres n’est pas respecté. Si 
l'affichage de votre texte déborde de 
l'écran, le mot ‘ENTER’ apparaît en bas 
et à gauche. En pressant cette touche, 
le texte efface l'écran depuis la ligne de 
départ et la suite est sortie depuis cette 
même ligne sans toucher à la partie supé- 
rieure de l'écran. 

Si l'option imprimante est sélectionnée 
et que cette dernière est hors service, le 
programme est interrompu. En tapant 
[DEL], on stoppe l'impression de la ligne 
en cours où on permet de débloquer le 
programme au cas où l'imprimante est 
débranchée. 

Notez que cette extension n'admet pas 
les variables indicées, un transfert par 
A$ = VARINDICEES (XX) est nécessaire. 


CODES DE CONTROLE 


La fonction des différents codes de con- 
trôle est définie dans le manuel, il est inu- 
tile d'y revenir. Il faut toutefois savoir 
qu'il n’est pas indispensable de les entrer 
sous la forme CHR$(X) qui occupe beau- 
coup de place en mémoire, alors qu'un 
simple caractère graphique obtenu avec 
[CTRL] suffit amplement. 

Le CHRS$ (0) constitue un cas particulier. 
Il ne peut être obtenu au clavier. Ce code 
est très utile en tant que séparateur de 
chaîne par exemple : A$="':b$ = 
STRINGS$(20,94)+CHRS$S(O):FOR i=1 
TO 4:A$—A$+BS$S:ICEN O,  A$,P3, 
P4,P5,20,P7 vous permet d'effacer 4 
lignes de 20 caractères aux coordonnées 
P3,P4 et avec un intervalle P5 pour 
P7 =1 ou 2, ou bien au centre de l'écran 
depuis la ligne P4 avec un intervalle P5 
pour P7=0,4,5. 

Le tableau suivant donne la correspon- 
dance des codes avec les touches du cla- 
vier et précise les codes inutiles ou 
incompatibles avec l'extension ‘ICEN'. 
CHRS (1) = [ICTRL] A 


CHRS (2) = ICTRLI B CHR$ (16) = ICTRLI P 
CHRS (3) = [CTRLI C CHRS (17) = ICTRLI Q 
CHRS (4) = ICTRLI D CHRS (18) = ICTRL] R 
CHRS (5) = ICTRLI E CHRS (19) = [CTRLI S 
CHR$ (6) = ICTRL] F CHRS (20) = [ICTRL] T 
CHR$ (7) = (CTRL] G CHRS (21) = ICTRLI U 
CHRS (8) = ICTRLI H CHRS (22) = ICTRLI V 
CHRS (9) = [CTRLI | CHRS (23) = ICTRL] W 
CHRS (10) = ICTRLI J CHR$ (24) = ICTRLI X 
CHRS (11) = ICTRLI K CHRS (25) = [CTRLI Y 
CHR$ (12) = ICTRLI L CHR$ (26) = ICTRLI Z 
CHRS (13) = [CTRLI M CHR$ (27) = ICTRLI | 
CHRS (14) = ICTRLI N CHRS (28) — ICTRL] 
CHR$ (15) = ICTRLI O CHRS (29) = ICTRLI | 
270 
275 
280 
285 
296 
295 
369 
305 


D CH#HAHHR JUSTIDAT #HHHHHA 


Les codes 0, 1,5, 6, 25, 26, 27, 30,31 
sont inutiles. Les codes 8, 9, 10, 11, 13 
peuvent, dans certains cas, permettre 
d'obtenir des effets spéciaux. Les autres 
codes peuvent être utilisés sans 
restrictions. 


CHARGEMENT 


Tapez et sauvez le listing 1 (Justidat), 
puis faites RUN. Ensuite, frappez 
SAVE’ JUSTICOD’',B,&9C40,937. Il 
vous est alors possible de lancer le pro- 
gramme ‘‘JUSTIDEM". 


DATA 90, C3,97,9€, 2A,59, 90,91, 32,9F, 90, 2A, 54,90, C1, C5,D593 
DATA D5,41,11,00,00,7E,FE, 20, 29,01, 14,23,10,F7,7A, 22, DA6I 
DATA b6,90, 2A,5F, 90, 4C, 26, 00, dé, 08, 29,70, 71, 38,02, 67, DED9 
DATA 20, 10,F7,22,61,9C, Di, SA, 5E, 90, CB, 57, 20,07, 2,58, E50E 
DATA 90, Cé,01,18,0€, 3A, 59, 90, 4F, 34,56, 90, 91, 28,02, CE, EACA 
DATA 3F,C6,01,67,232, 65, 90, 6B, CD, 75, BB, ZA, 5,90, C1, 7E,F228 
DATA FE, 20, 29,27, 3A, 61, 9C,FE, 06, 28, 08, 47,3E, 20,C5, CD,FB2E 
DATA 19,9F,C1,10,F7, SA, 42,90, FE, 00, 20, 04, 3E, 20, 18,08, FDE9 


{ 
} 

16 A=LOCA40:F=L9FES:L=100:MHILE AC=F:FDR AA TO AIS: READ Cé:f 319 DATA 3D,32,62,9C,3E, 20,F5, CD, 19,9F,F1,CD,19,9F,0D,C8,0519 
VAL ("A 4CS) 1S=GHK+85S TON (GC 32767) 2 IF AG=F THEN POKE ASK 315 DATA 23,18,CC,FE, 21, CB,FE, 20, CB,FE, SA, CB,FE, 3B,FE, 2C, OESD 
20 NEXT:READ DS: T=VAL ("H"#D$): IF TS THEN PRINT CHRS(7i5"Err | 929 DATA CE,FESZE,CE,FE, SF, CB, FE, 2A, CB, C9, 2A, SA, 90, 41, ZE, 17E6 
eur ligne";L:END ELSE L=L+5:WEND 325 DATA FE, 20, 30,01, 0D, 23, 19,F7,C9,00,00,F5,FE,5E, 29, 02, 1078 
199 DATA 61,49,9C,21,52,90,C3,D1,BC,4E,90,C3,45,9C,43,45,0788 | 559 DATA SE,20,CD,SA,BB,F1,00, CD, ZE, ED, SB,FE,FE, 20, 38, 06, 24E8 
195 DATA CE, 06, 00, 00,00, 00, 06, 60, 00,00, 00,09, 00,00, 00,00, 0889 | 353 DATA 79,FE,01,C8,18, 55,75, SA 64, 7C,FE, 606,29, 10, SE, 61, 2809 
118 DATA 20, 0,0, 08,00 9,00 AFS, 205 52 502 OAFE 346 DATA Se 
126 DATA 4D, 45,54: 52,45, nS. op, 45 4E 54, 45 *52,3D, 45 .4F, Æ, 13CE 356 DATA OA, AE: 32,64, 9€: Æ, JA, CD, 7, 9F, cs, 42.2, JA, CD, 78,4914 
125 DATA 54,2€, 42,52,45, 41, ,4B, 2A, 32,3 53,54, 4F,56, FF, 45, 18D8 355 DATA 9F,19,F9,AF,32,64, gC, C9, 99, C5, F5, FE JE, 20,02,3E, 47DC 
36 DATA 4E,54,45,52,FF,FE, 07, C2, BA, 9F,AF,32,63,9C, 32, 64, 2646 36 DATA 26,CD,2B,BD,F1,C1,09,E5,D5,21,19,02,CD,75,BB,21,5940 
125 DATA 90, 22,57, 90, 21,00, 00, 22, 19,9F, CD, 11,BC,FE, 00, 20,261A | 365 DATA 9F,9C,7E,FE,FF,28, 06, CD, SA, BB, 23, 18,F5,CD, 06, BB, S8C4 
149 DATA 04,3E,14,18,0A,FE, 01, 20,04,3E, 20, 18,02, 3E, 50, 32, 28F5 376 DATA FE, 6D,26,F9,D1,62,3A,57,9C,5F,6B,CD,75,BB,3E, 14,696 
145 DATA 56, 9C, DD, 7E, 66, 32, SE, 90, DD, 6€, 62, 3, 56,90, BD, 28, 2FCC | 375 DATA CD,5A,BB,E1,C9,21,67,9C, 18,03,21,75,9C,ES, 21, 00, 6770 
156 DATA 08, 20,06, 7D,CE, 2F,6F, 18,F2,7D,FE,03, 30,03, 34,56,3548 | 389 DATA 02,0D,7S,BB,E1,7E,FE, 6D,28, 11,FE,FF, 28, 18, CD, SA,6F76 
155 DATA 9C, 32,59, 9C, DD, 66,08, 84,47, 3A, 56, 9C, 8, 39,02, 26,3B6ù | SES DATA BB,CE,45,SE,07,CC, SA, BB, 23, 18,EA, 21,0D,02,CD, 75, 79FE 
169 DATA 09,70, 32,58,9C, DD, 7E, OC, FE, 08, 20,08, 21,18,0C, 22,3FFE 396 DATA BB,21,87,9C,16, DF,CD,66,BE,C9,46,00,00,06,06,66,7B4B 
165 DATA 19,9F,18,14,FE, 00,28, 6B,FE,04,C2,BA,9F,AF, 22, 26, 4637 

179 DATA 9F,18,05,3E,C9,32, 26,9F, DD, 56,04, DD, 5E, 06, DD, 66, 4CAC 

175 DATA 68, DD, &E, GA, 78, 32, 57, 90, 7E, 32,50, 90, 23,4E, 23, do, 522 

189 DATA ED,43, SA, 90, 2A, SA, 90, ZA, 50, 9C, 47,0E,00,7E,FE, 21, 5898 LISTI NG D 

185 DATA 39, 1A,FE, 29,30, 11,E5,F5, 62,68, 34,58, 9C, 84, 67, CD, 5FCE 

190 DATA 75,BB,F1,E1,CD, SA, BE, 23,00, 10,E2,C9, 22, 5A, 90, ZA, 47EE 

195 DATA 5C,90,91,32,95C,9C,4F,3A,59,9C,91,38,1E,3E,91,22,6D77 | 19 ‘#HHH##H# JUSTIDEM HHHWHHH FXBE 
206 DATA 63,90, 3A,5C,9C,06,00,4F,09,7E,FE,20,20,04,2B,0D,71FE | 29 MEMORY 29999: O0PENOUT "x": MEMORY HIMEM-1:CLOSEOUT:LOAD >EC< 
265 DATA 18,F7,CD,FS, 90, 62,68, 20, C3, 75,BB, 34,59, 90, 4F,ES, 7ABE “justicod.bin" 
216 DATA 47,7E,FE, 20, 20,02,04,00,23,10,F6,7E,CD,F3,9E, 20,8105 | 30 DEFINT A-Z:CALL 40600:MODE 1:INK 9,192 INK 1,0: INK 2, ?RD< 
215 DATA 01,0D,E1,3A,50, 9C,E9, 38,C4,28, C2, 06, 0û,09,7E,CD,871F | 26:INK 3,3:BORDER 6:PAFER 0:FEN 1 
220 DATA F2,9€,28,15,FE, 21,38, 07,25, 00,CA,85,9F,18,EF,2E,8DD3 | 49 INK 1,0:INK 9,9:INK 2,25:PEN 1:PAFER 6: MODE 1:a$=CHR ?NE< 
225 DATA OD,CA,B5,9F,7E,FE, 21,38,F6, 0C, 23,3A,5C, 90, 91,32,94ED | $(14)4CHR$ (2) +CHR$ (15) +CHR$ (1)+""QUELQUES EXEMPLES": 1C 
236 DATA 5C,9C,E5,CD,F5,90,E1, 22,54, 90, 7A,83,5F,FE, 14,D4,9E64 | EN,0,6a$,0,1,2,20,0 

235 DATA 87,9F,C3,47,9D,3A,5E,9C,FE,06,20,4C,C5,CD,0B,9F,A611 | 59 a$=CHR$(15)+CHR$(0)+"*USAGE DES CONTROLES* “PEN-PAPE >CF< 
246 DATA 3A,56,90,91,28,02,CE,3F,Cé,01,67,32,65,9C,32,5D,ABF2 | R ET INVERSE”"4CHRS$ (15)+CHR$ (1)+CHR$ (14) +"9": !CEN, 0, @a$ 

245 DATA 9, 6B, CE, 41,01, 20,04, AF, 32,50, 9C, CD, 75, BB, 2A,5A,B345 | ,9,3,1,22,0 
259 DATA 9C,7E,CD, 19,9F,0D,C8,F5, 3A,5D,9C,FE, 00,28,15,F1,EB0D | 69 a$=""PEN 1 PAPER 0°"4CHR$(15)+CHR$(2)+"°PEN 2 PAPER  >AG< 
255 DATA FE, 24, 28,07,C4,F3,9E, 20,00, 3E, 20, CD, 19,9F,AF,32,C19F | O""4CHRS(15)4CHRS (3) CHR (14)4CHR$(1)+"PEN 3 PAPER 1°" 
266 DATA SD,90,18,01,F1,23,18,D9,C5,CD,08,9F,2A,9E,9C,CB,CBF1 | +CHR$(14)+CHRS (2)4"*PEN 3 PAPER 2°"4CHRS (24) +" INVERSION 


DATA 47,28,11,3A,63,9C,FE, 66, 29, 6A,61,06,00,ED, 43,61, CD6C 


VIDEO"+CHR$ (24) +CHR$ (15) +CHR$ (1) +CHR$ (14) +CHR$ (G) +"ET 
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RETOUR AU MODE NORMAL" 


219 IF 13LEN (a$i-9 THEN FOR x=1 TO 14:b$=RIGHT# (a$, 19- 


> JD“ 


74 ICEN.6,6a$,2,8,2,16,0:GO0SUE 366 2EH: | x) +LEFT#(a$, x): CEN,0,6b$,0,29,1,16,9:FO0R tp=i TO 125:N 

86 a$=CHR$ (20) +CHR$ (15) +CHR$ (3) +CHRS$ (14) +CHR$ (Z)+" QUEL :EJ£ | EXTINEXT:1=1:G0T0 246 

QUES EFFETS AVEC® ‘LES CHR$ GO), (11) & (24)": CEN, 0, €a 226 !CEN,0,6b$,0,20,1,10,5 ME: 
$,9,2,1,26,0 236 FOR tp=1 TO 125:NEXT NF< 
96 a$="":b#=CHRS (233) +CHRS (10) 4CHR$ (24): FOR i=1 TO dôta cERS | 249 CÉSMUAILE cé" césINRENS: IF céiCHRS(1S) THEN 19 QG 
$=a$+b$:NEXT: :CEN, 0, 6a$,2,7,1,10,2: :CEN,0,8a$,16,7,1,10 O:WEND 

2 259 IF m=i THEN n=0:6010 168 XHE 
100 c$="":d$=CHRS (233) +CHR$ (11) +CHR$ (24): FOR i=1 TO 46: VB: | 265 IF m=û THEN m=2:60T0 160 #1Jé 
ch=c$+d$:NEXT: ICEN,0,8c$,2,16,1,10,2:CEN,0,6c$,28, 16,1 270 MODE 1 NK: 
,10,2 286 a$=CHR$ (29) +CHR$ (0) +CHRS (26) +CHR$ (15) +CHR$ (3) +CHRS ( CL 
119 a$=LEFT#(a$, 10): CH=LEFTS (cé, 10) JC: | 14)+CHR#(2)+"DEMONSTRATION TERMINEE, FRESSER ENTER FOUR 

126 FOR i=1 T0 8 :YD£ |  RECOMMENCER, PRESSER N'IMPORTE QUOI (SUR LE CLAVIER QU 

130 IF i/2=INT (1/2) THEN ICEN, 0, @a$,1#5,21,1,9,2 ELSE :C 3GE< | AND MEME !') POUR EN FINIR." 
EN,9,6c$, 1x5,24,1,5,2 296 !CEN,0,8û$,0,8,2,24,4 sm: 
148 NEXT:GOSUE 366 2FF< | 300 AS="":MHILE A$="": A$=INKEYS: HEND VD< 
15ù m1 RG | 310 IF A$=CHR$(13) THEN 30 3FE* 
169 MODE m:FAFER 2:a$=""CECI"EST"UNE"TENTATIVE DE CHENI :GH< | 324 CALL 6 2YF< 
LLARD"*, “FRESSER“ CENTER] "*QUAND" VOUS" L AUREZ‘ ASSEZ"VUE"" 316 END #XG: 

349 CEN,a,ëa$,coldeb,VFOS (#0) ,1,col,m:1iF at4 THEN RET 24H: 

179 C$="ET FOURQUOI FAS UN GADGET "2: CEN,D,@C4,0,2,1,2 :KJ< | URN 
ÿ,9 | 350 IF SL£:0 THEN SL=6:FRINT#G, : ICEN,E,@inter$,0,1,1,80 >FJ< 
189 i=0 PE2 À 6: PRINT, :RETURN ELSE RETURN 
19ÿ izi+i »TL4 | 36 a$=CHR$(24:+CHR$(7)+"*FRESGSER CENTERJ'"4CHRS (24: iC MK 
206 IF 1iLEN (a$)THEN b$=MIDS (a$, à, 10) +CHR$ (5) :BC: | EN, 0,6a$,0,25,1,60,0:CALL &BB06: RETURN 


 ÆFATWENTY-COPY | 


= CPC 464 ) 


Que les copieurs en culotte courte, les possesseurs de 464, 664 
MICRAL et autres arrêtent de trépigner de joie, Twenty-Copy ne 
copie aucune disquette protégée et fonctionne exclusivement sur 
6128. Pour les autres, sachez que ce programme est le copieur le 
plus rapide que votre Amstrad ait jamais connu... 

En effet, grâce à son buffer titanesque, Twenty-Copy copie une dis- 
quette en deux accès seulement, vingt pistes par vingt pistes. De 
plus, non content de ces avantages, sont intégrées toutes les com- 
mandes de Disckit, plus quelques autres : 

— Catalogue pour être sûr de ne pas se tromper de disquette. 
— Copie en plusieurs exemplaires d’une disquette (la disquette 
source est lue une seule fois). 

— Changement des couleurs à volonté. 

Sans oublier une présentation sortant de sentiers battus avec des 
messages d'erreurs en français. 


UTILISATION 


disquette non protégée. 


Après avoir tapé le listing 2, sauvez-le 
puis faites RUN. Un programme 
TWENTY.V12 va être sauvé sur disque. 
Entrez ensuite le listing 1 (BASIC). 

Si tout a été tapé correctement, le pro- 
gramme doit vous proposer quatre 
options : (C) COPIE, (V) VERIFICATION, 
(F) FORMATAGE, (D) DIVERS. 


Première option 


La plus importante ; elle permet de... 
copier piste par piste le contenu d'une 
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Vérification 


Elle permet de vérifier si toutes les pis- 
tes d’une disquette sont correctes ou 
plus simplement de connaître rapidement 
le format d'une disquette. On peut sor- 
tir d'une vérification en appuyant sur une 
touche quelconque. 


Formatage 


Elle formate à vitesse grand V en format 
Data ou Vendor (semblable au format 


Frédéric DE ZORZI 


System sans les ‘boot sectors''). Lors 
d'une copie, il est inutile de formater le 
disque destination, le programme s'en 
chargera si nécessaire. Toutefois, la dis- 
quette ne doit pas être vierge. 


Divers 


Elle permet au choix de : 

— Donner le catalogue d'une disquette. 
— Changer les couleurs (vous pouvez, 
si vous le désirez, sauvegarder le pro- 
gramme avec vos couleurs en tapant en 
mode direct : SAVE''TWENTY.V12",B, 
&8000,&1306,&8000) 

— Changer le nombre d'exemplaires à 
copier (à partir de la deuxième disquette 
destination, les disquettes devront être 
au format de la disquette source). 

— Quitter le programme (vous pourrez, 
lors d'une sortie malencontreuse de 
Twenty-Copy, y retourner en tapant 
‘’GOTO70"). 


Voilà, c'est tout, j'espère que Twenty- 
Copy vous plaira et que yous mettrez de 
côté Disckit et autres. Je me permets de 
vous faire remarquer que les octets 
situés entre &9307 et &A600 sont inu- 
tilisés et appellent d'autres versions de 
Twenty-Copy…. 


36 REM * 


LISTING 1 


10 REM HE 
26 REM * * 


THENTY-COPY * 


4ÿ REM * * 
50 REM #6 


1 œ 


à MEMORY #17FF:LOAD'TMENTY. V12" 
à CALL 48600 


89 CALL 8813D:A=PEEK (48785) 
96 IF A=û THEN END 


196 


IF A=2 THEN 125 


LISTING 2 


TWENTY-COPY 


260 GOTO 138 


279 A=PEEK (48784) :CALL &813D:FRINT'NOMBRE D'EXEMPLAIRES SK 


À COPIER (“;45" PAR DEFAUT) :"3 


119 IF A1 THEN 270 >AC< 

120 CALL 48000 >CD< 

138 CALL #813D:FRINT"COULEUR D'ENCRE :": >DE< 

145 GOSUE 369 >PF< 

ape [159 IN L,A:PÜKE LBDIA, A:POKE BEOIE, À >KBX 
suce [160 CALL #813D:PRINT"COULEUR DE FOND :"; AUE 
sxp< [176 GOSUE 300 >TK 
ve: [180 INK 0,A:POKE 28012, A:POKE BEG13,A >EK< 
«rec (196 CALL 8813D:FRINT"COULEUR DE BORD :": RL 
.ro< [200 GOSUE 306 >LC< 
«eue [219 BORDER A:FOKE 48020, A:POKE 88021, A >KD< 
suye (226 CALL K813D:PRINT'ETES VOUS SATISFAIT (O/N) 2"; AE 
Luxe (230 ASSUFPERS (INKEYS) : IF A$="" THEN 230 MF: 
syge [240 IF A9="0" THEN 76 DCR 
pe |250 1F ASCN" THEN 220 >MH< 


16 #HHH# CHARGEUR DATA ##H## 
26 DI:MEMORY &/FFF:1%=90:c=32768 
36 FOR b4=0 TO 7 


46 READ b$:d'A=VAL("#&"+b#):FOKE cdé:s=s+d: IF 5:65 


=ÿ 

99 c=c+i:NEXT b4 

Bb 1A=14HIG:READ s$:IF VAL("R" +56) € 
INT'ERREUR EN LIGNE ":L4:END 


76 IF c£:37640 THEN 10 ELSE SAVE" twenty. v12",b,88000,81206,8 


8606 
8% END 
96 DATA ED,73,86,87,21,7D,87,CD.459 
199 DATA D4,BC,D9,3E,FF,CD, 1B, 06, DE 
119 DATA 97,61,00,06,CD,32,BC,3E, B6F 
126 DATA 61,61,14,14,CD,32,BC,01,D61 
139 DATA 91,61,CD,38,BC,3E,FD, 21,1080 
149 DATA 89,87,CD,A8,BE,3E,FE, 21,151D 
156 DATA 80,87,CD,AB,BB,3E,FF,21,19EF 
166 DATA 91,87,CD,A8,BE,3E,FC, 21,1E62 
176 DATA 99,87,CD,AB,BB,3E,FE,21,230C 
189 DATA 9D,87,CD,AB,BB,3E,FA, 21,27E9 
196 DATA A5,87,CD,AB,EE,3E,F9,21,2C6D 
246 DATA A9,87,CD,A8,BE,CD,CB,84,31E9 
218 DATA CD,66,BB,FE, 46, CA, 1D,88, 362A 
224 DATA FE, 66,CA, 1D,88,FE,56,CA,3B1E 
2350 DATA B1,87,FE,76,CA,B1,87,FE, 4007 
246 DATA 44,CA,57,88,FE,64,CA,57,4537 
250 DATA 88,FE,43,28,09,FE, 63,28, 48BA 
26% DATA 05,18,D5,CD,00,85,CD, 3D, 4C08 
276 DATA 81,21,E5,81,CD,51,81,CD,507C 
285 DATA 66,BE,CD,5D,81,CD,7E,81,34B4 
296 DATA CD,3D,81,21,12,82,CD,51,5814 
306 DATA 81,11,90,60,CD,DE,85,CD,5BAI 
319 DATA 3D,81,21,24,82,CD,51,81,5EC5 
320 DATA 3A,9F,A8,F5,CD,06,BB, CD, 6396 
336 DATA 5D,81,3A,9F,AB,E1,BC, 28, 67EÀ 
340 DATA 07,7C,32,9F,A8,CD, 29,685, 6B28 
350 DATA CD, 5D,81,21,12,82,CD,51,6E86 
369 DATA 81,11,00,00,CD,56,86,CD,7188 


370 DATA 3D,81,21,E5,81,CD,51,81,756C 
386 DATA CD,66,BE,CD,3D,81,21,12,78B8 
199 DATA 82,CD,51,81,11,60,14,CD,7ECB 
469 DATA DE,85,CD,:3D,81,21,24,82,7FE6 
416 DATA CD,51,81,CD,66,BB,CD,3D,83B7 
424 DATA 81,21,12,682,CD,51,81,11,869D 
430 DATA 09,14,CD,54,86,CD,3D,81,89DF 
449 DATA 21,56,82,CD,51,81,21,18,8CE6 
450 DATA 18,22,82,87,CD,06,BB,FE, 707F 
46 DATA 52,CA,95D,80,FE, 72,CA, 5D, 950F 
476 DATA 80,FE, 41,CA,85,86,FE oi, 7Awz 
486 DATA CA,8B,86,18,E7,21,01,01,9CF9 
499 DATA CD,75,BE,SE,26,06,3E, CD, 665 
506 DATA 54,BE,19,FE,3E,01,C35,6F,A3F6 
519 DATA BE,7E,3C,3C,FE, 6D,CB,CD,AB47 
529 DATA 5A,BB,23,18,F4,97,CD,96,AC7F 
520 DATA BB,21,7E,87,CD,D4,BC, DO, B18D 
546 DATA 97,CD, 1B,00,FE,09,28, A, B43C 
556 DATA 3E,01,CD,99,BB,CD, 45,87, B82C 
566 DATA 18,E3,3C,C3,96,EB, 21,09,BB9B 
576 DATA 2C,CD,75,BE,21,C2,85,CD,BFF7 
58% DATA 51,81,21,9A,2C, CD, 75, BB,C31D 
599 DATA 21,CE,83,CD,51,81,21,0E,C65A 
659 DATA 2E,CD,75,BB,3A,9F,AB,FE, CBÜ4 
&i DATA Ci,28,08,FE,41,C6,21,B9,CECE 
626 DATA 83,18,0:,21,B0,83,C3,51,D1D4 
630 DATA 81,26,41,27,1E,41,4D,4E,D3DD 
649 DATA 47,43,1E,26,54,27,1E,54,D398 
856 DATA 43,50,47,44,47,41,3F,52,D7CF 
669 DATA 47,4D,4C,1E,26,44,27,1E,D97C 


b7à 
68ÿ 
896 
769 
719 
720 

30 
74ÿ 
750 
7bû 
770 
784 
799 
850 
819 
820 
830 
840 
850 
864 
870 


280 GOSUE 300: 1F A>9 THEN FOHE 48784, À EL 

296 GOTO 79 PM 

300 Bg="" LD 

319 AS=INKEYS: IF A$="" THEN 310 }CE< 

5279 THEN s 326 B=ASC(A$):IF B<:13 AND B:49 AND E:57 THEN 315 s2F# 

330 IF B=13 THEN 360 LE 

740 PRINT AS: :B9=B$+A5 :CH< 

VAL CR4HEXS (s)3 THEN FR]5S0 GOTO 516 PRIS 
360 A=VAL(BS): IF A:26 THEN 300 ELSE RETURN :K@ 


DATA 44,4D,50,48,2F,52,3F,45, DEBD 
DATA 43, 1E,26,42,27, 1E, 42, 47, DD54 
DATA 54,43,50,51,0B, 47, 40,51, DF7E 
DATA 47,50,43,58, 1E, 44,43, 1E,E172 
DATA 42,47,51,49,1E,51,4D,53,E3Ad 
DATA 56,41,43,1E,43,52, 1E, 4€,E597 
DATA 56,43,51,51,43,58, 1E,53,E7D8 
DATA 4C,43,1E,52,4D,53,41,46,E9FE 
DATA 43,0B,41,4D,4€,47,43, 1E,EBDO 
DATA 43,4C,1E,41,4D,53,50,51,EDFF 
DATA 2, 2C, 2C,08,47,40,51,43,EFE5 
DATA 56,43,58, 1E, 48,43, 1E,42,F1AB 
DATA 47,51,49,1E,42,43,51,52,F3D2 
DATA 47,40,3F,52,47,4D, 40, 1E,F5F4 
DATA 43,52,1E,4€,50,43,51,51,FE2A 
DATA 43,58, 1E,53,4C,43, 1E,52,F435 
DATA 4D,53,41,46,43,0B, 26, 3F,FCF 
DATA 27,1E,3F,53,52, 50, 43, 1E,FDE9 
DATA 41,4D,4E,47,43,1E,4D,53, 101 

DATA 1E, 26,50, 27, 1E, 90,43, 52, 2BF 

DATA 4D,53,50, 1E, 48,43, 40, 53, 4FA 


à DATA 0B,92,55,43, 40,52,57, LE, 762 


DATA 41,4D,4E,57, 1E, 54, 2F, 20, 92 


DATA 39,0B,26,41,27,1E,2F,37,A4F 


DATA 36,35, 1E, 44,50, 43,42, 43,C34 
DTA 50,47,41,1E,42,43, 1E,58,E25 


z 


à DATA 4D ts 47,08, 4E,47,51, 1052 
ÿ DATA 52,4 


3,91,38,1E,1E,4E,47,i24i 
DATA 1,52,43 ,91,38,0B,FA,FE, 15B0 
DATA FB,FB,FB,FB,FB,1E, 1E, FA, 1BCA 


à DATA FB,FB,FB,FE,FE,FB,0B,F9, 22AD 


51 


980 DATA FC,FC,FC,FC, FC, F7, 0B, FD, 2998 
990 DATA FD,FD,FD,FD,FD,FD, 08, 44, 2FD5 
1909 DATA 4D,56,4B,3F,52,3F,45,43,3215 
1919 DATA 16,43, 40, 1E,41,4D,53, 50, 3411 
1920 DATA 51,20, 2C, 2C, 08, 4,43, 41,35BF 
1936 DATA 52,43,53, 50, 1E, 47,40, 42, S7EA 
1940 DATA 47,51,4E, 4, 4C,47,40, 44, 343A 
1950 DATA 43, 1E, 26,50, 27, 1E, 50, 43, 3BE9 
1960 DATA 41,4D,4B,4B, 43,40, 41,43, 3E20 
1979 DATA 50, 1E,26,3F, 27, 1E,3F, 40, 3FB7 
1980 DATA 3F,4C,42, 4, 40,43, 56,05, 41E5 
1990 DATA 0B,4€,47,51,52,43, 1E, 4B, 43A4 
1100 DATA 3F,4A, 1E,44,4D,50,4B,3F,45B6 
1110 DATA 52,43,43,1E, 26,50, 27, 1E, 4767 
1129 DATA 50,43,41,4D,4B,4B, 43, 4C, 494D 
1130 DATA 41,43,50, 1E, 26, 3F, 27, LE, 4849 
1149 DATA 3F,49,3F, 40, 42, 4D, 40, 4C, 4D7A 
1150 DATA 43,50,05,08, 42,47,51,49,4F4û 
1169 DATA 1E,4€,50, 40,52, 43,45,43, 5166 
1170 DATA 1E,43,4C, 1E,43,41,50,47,534C 
1180 DATA 52,53,50, 43, 1E, 26,50, 27,553F 
1190 DATA 1E, 50,43, 41, 4D,4B,4B, 43, 5757 
1200 DATA 4C,41,43,50,05,0B,54,43,571E 
1219 DATA 59,47,44,47,41,3F,52, 47, 5859 
1220 DATA 4D, 40, 1E, 43,40, 1E, 41, 4D, 5D4E 
1230 DATA 53,50, 51, 20, 20, 2C, 0B, 26, SEF4 
1240 DATA 42,27,1E,42,3F,52,3F, 1E, 60AB 
1250 DATA 40,53, 1E, 26,54, 27, 1€, 54,627C 
1260 DATA 43,40, 42, 4D, 50, LE, 3D,0B, 6458 
270 DATA 1E,16,42,3F,52,3F, 16, 1E,65CA 
1280 DATA 0B, 16,54, 43, 40, 42, 4D, 56, 67AD 
1290 DATA 16,08, 44,43, 1E,42,47,51,6953 
1300 DATA 49,1E,43,51,52,0B, 44, 4D,6B3C 
1319 DATA 50,4B,3F, 52,43, 1E, 43, 4C,6D58 
1320 DATA 08, 26,3F, 27, 1E,3F,53, 52, 6EF1 
1330 DATA 50,43, 1E,54,43,50,47,44,7114 
1340 DATA 47,41,3F,52, 47, 4D, 4C, 1E, 732B 
1350 DATA 4D,53, 1E, 26, 50, 27, 1E, 50, 74F4 
1360 DATA 43,52, 40,53, 50, 1E,4B,43, 7725 
1370 DATA 4C,53,08, 47,4C,51,43, 50, 7946 
1380 DATA 43,58, LE, 44,43, 1E, 42,47, 7833 
1390 DATA 51,49, 1E,3F, 1E,54,43, 50, 7D2F 
1409 DATA 47,44,47,43,50, LE, 43, 52, 7F47 
1419 DATA 1E,4€,50,43,51,51,43,58,8183 
1420 DATA 16,53, 4C, 43, 1E,52,4D,53,8393 
1430 DATA 41,46,43,0B, 26,41,27, 1E,8514 
1440 DATA 41,3F,952,3F, 44, 40,45, 53,8754 
1450 DATA 43, 1E, 26, 4C, 27, 1E, 40, 4D, 8905 
1480 DATA 48, 49,50, 43, 1E, 42,25, 43,BAEB 


1479 DATA 56,43, 4B,4E, 4A,3F,47, 50, 8030 


1480 DATA 43,51, 1E, 26, 4€, 27, 1E, 4€, 8EF6 
1490 DATA 3F,4A,43,92,52, 43, 1E, 26, 90ED 
1500 DATA 4F,27, 1E,4F,53,47, 52,52, 930€ 
1519 DATA 43,50,08, 16, 4€, 50,43, 51, 94F4 
1529 DATA 51,43,58, 1E,53, 40, 43, 1E, 96FE 
1530 DATA 52,4D,53, 41, 46,43, 1E, 4, 9926 
1540 DATA 4D,53,50, 1E, 50, 43,54, 43, 9BSE 
1550 DATA 40, 47,50, 1E,3F,53, LE, 4B, 9054 


52 


1560 DATA 43,4C,53, 16,08, 47,4C,51,9F41 
1579 DATA 43,50, 43,58, 1E,42,47,51,A167 
1580 DATA 49,1E,3F, 1E, 44, 4,50, 4B,A357 
1590 DATA 3F,52,43,50, 1E, 43,52, 1E,AS4C 
1600 DATA 4E,50,43,51,51,43,58, 1E,A788 
1619 DATA 53,4C, 43, 1E, 52, 4D,53, 41, A9BB 
1620 DATA 46, 43,08, 3E, 02, CD, 0E, BC, AC24 
1839 DATA CD, 30,81, 21, 81,81, CD, 51, B022 
1640 DATA 81,21,04,0A, CD, 75, BB, 21, B2F0 
1850 DATA 79,82,CD, 51,81, 21,09,05, B5B9 
166û DATA CD, 75,BB, 21,84, 82, CD, 51, BA91 
1878 DATA 81,21,04,3E, CD, 75,BB, 21, BD63 
1680 DATA 45,82, CD, 51,81, CD, AD, 88, C1CB 
1899 DATA 21,05,3E, 06, 14,5, CD, 75, C470 
1700 DATA BB, 21,6, 82, CD, 51,81,E1,C904 
1719 DATA 23,19,F2,C9, CD, 3D, 81, 21,CC9E 
1720 DATA 90,84, CD, 51,81, CD, db, BB, DAEC 
1730 DATA CD, 3D, 81,21, D7, 82, CD, 51,D56F 
1740 DATA 81,06,09, 3A,9F, AB, 32,55, D7A7 
1750 DATA 85,30, 4F,21,87,85, 23, 23, DA2B 
1760 DATA 7E,CB,BF,B1,77,23,23, 10, DDBI 
1770 DATA F5,97,F5, 21,87,85,E5, 11,E255 
1780 DATA 04,09,06, 09, 77,19, 10,FC,E404 
1790 DATA 57,1E,00,E1,0€,C1,DF, 84,E78C 
1899 DATA 85, CD, 23,87,FE, OA, 28,F4,EBAC 
1819 DATA 26,47,CD,AB,85,F1,3C,FE,Fê4i 
1820 DATA 28, 20,07, 3E, 18, 32,83, 87,F2F2 
1839 DATA 21,05,47, 06, 14,E5, CD, 75,F5Aû 
1849 DATA BB, 21,BF,82,CD,51,81,E1,FASD 
1850 DATA 23, 10,F2,C9, 42, C0, 07,00 ,FD34 
i86û DATA 09,C1,92,00, 00, Cé, 02, 00,FEBF 
1870 DATA 09, C2, 02, 00, 00, C7,02, 00, CB 

1889 DATA 09, C3, 02, 00, 00, CB, 02, 06, 25A 

1899 DATA 00, C4,02, 00, 00,C9, 02,00, 3EB 

1900 DATA 09,C5,92,F5, D5, 11,82, 87, 796 

1919 DATA CB, 44,28, 01, 13, 1A,6F, ZA, 744 

1920 DATA 7F,87,FE, 00, 20, 11,CD, 75, DIB 

1936 DATA BB, 21,07,82,CD,51,81,3E, 111D 
1940 DATA 01,32, 7F,87,D1,F1,C9, 7D, 155€ 
1950 DATA 3D, 12, CD, 75, BB, 21,CF,82, 191C 
1966 DATA CD, 51,81,97, 18,EB, 3€, C6, 153 
1970 DATA CD, 73,87, 21,00, 18, DD, 21, 2051 
1980 DATA 00, 80, 3A,9F, AB, 4F, 06, 09, 2280 
1990 DATA CD, 14,86, 3E, C4, CD, 73,87, 266 
2000 DATA CD, 13,86, 3E,C5,CD, 73,87, 2816 
2610 DATA CD, 13,86, 3€, C6, CD, 73,87, 2F47 
2026 DATA CD, 13, 86, 3E,C7, CD, 73,87, 3379 
2036 DATA C3, 13,86, 21,06, 40, DD, 21, 3634 
2649 DATA 06,86, DD, ES, D5, CD, FF, 86, 3B9D 
2650 DATA 11,00,02,19,D1,F1,F5, BC, 3F3C 
2060 DATA 28,13, 00, 10,EF, 3A,9F, AB, 4203 
2076 DATA 4F,06,09,E5, 26, 3€, CD, AB, 4522 
2089 DATA 85,E1, 14,18, DF,F1,0C,05, 4895 
2690 DATA CO, 3A,9F, A8, 4F, 06,09, 14, 4848 
2106 DATA ES, 26, 3€, CD, AB,85,E1, C9, 5038 
2119 DATA 3A,84,87,47,3A,83,87,4F,5357 
2128 DATA C5,D5, 3€, Cô, CD, 73,87, 21, 5707 
2136 DATA 60, 18, DD, 21,06, 80, 3A, 9F, SA46 


2149 DATA A8, 4F, 06,09, CD, C9, 86, 3€, SDA6 
2156 DATA C4, CD, 73,87, CD, C2, Bb, 3€, 6284 
216 DATA C5,CD, 73, 87,CD, C2, 86, 3E, 6763 
2176 DATA Cé, CD, 73,87, CD, C2, 86, 3E, C43 
2189 DATA C7,CD,73,87,CD,C2,86,F1,7107 
2199 DATA C1,C5,F5,10,03,F1,F1,C9,7710 
2200 DATA C5,06, 04, 26,47, 34,83, 87, 7996 
2216 DATA &F,CD,75,85,D1,F1, 79,32, 7E39 
2226 DATA 83,87,C5, CD, 3D,81, 21, 24,81D8 
2236 DATA 82,CD,51,81, CD, 66, BB, CD, 8454 
2249 DATA 3D,81,21,12,82,CD,51,81,8966 
2256 DATA 18,97, 21,00, 40, DD, 21, 00, 8874 
2266 DATA 89,DD,E5,D5,CD, 11,87, 11, 9001 
2276 DATA 06,02, 19,D1,F1,F5, BC, 28, 9387 
2286 DATA 13,00, 10,EF, 3A,9F,AB, 4F, 7645 
2296 DATA 06,09,E5, 26, 47,CD, AB, 85, 9403 
2306 DATA E1,14,18,DF,F1,0C,05, Cÿ, 9DB1 
2316 DATA 3A,9F, A8, 4F, 06,09, 14,E5, A0B7 
2329 DATA 26,47, CD,AB,85,E1,C9, DF,A57C 
2330 DATA 0E,87,E5,C5, CD, 23,87, C1,A9F3 
2349 DATA E1,FE, OA, C0, 18,F1,3C, CO, AEAI 
2350 DATA 07,DF, 20,87,E5,C5, CD, 23, B2CB 
2340 DATA 87,C1,E1,FE, OA, CO, 18,F1,B7C2 
2376 DATA 3F,C0,07,FE, 00, CB, CE, 5F, BBBB 
2380 DATA 20, 1B,CB, 47,20, 12, CB, 57, BE59 
2396 DATA 20,0E, CB, 4F, 20,08, CB, 4F,C105 
2406 DATA 20,01,09,21,54,83, 18, 08,C307 
2410 DATA 21,21,83,18,03,21,ED, 82,C577 
2426 DATA E5,CD, 3D,81,E1,CD, 51,81,CA67 
2436 DATA CD,06,BB,FE, 41,28, 0F,FE, CEb9 
2449 DATA 61,28, 0B,FE, 52, 28,04,FE, D177 
2456 DATA 72, 20, ED, SE, 0A, C9, ED, 7B,D56F 
2466 DATA 80,87, 21,18, 18, 22,82,87,D7F2 
2470 DATA C3,5D,80,C5,4F, 06, 7F,ED, DC18 
2480 DATA 49,C1,C9,84,88,81,C1,00,E039 
2496 DATA 00,00, 18, 18,01,00, 00, 0, EGGA 
2506 DATA 00, AA,55, AA, 00, AA, 55, AA, E3EC 
2510 DATA 00,FF,FF,FF,00,FF,FF,FF,E9B6 
2529 DATA 09, AA, DS, AA, 09, AA, DS, AA, EEGB 
2530 DATA 00,FF,FF,FF,00,AB,55, AB, F280 
2546 DATA 00,AE,55, AB,00,FF,FF,FF,F758 
2556 DATA 00, CD, 3D, 81, 21,03, 84, CD,FA58 
2569 DATA 51,81, CD, 06, BB, CD, 50, 81,FE63 
2570 DATA CD,7E,81,CD, 3,81, 21, 7E, 329 

2580 DATA 83,CD,51,81,11,00,00, 3A, 596 

2596 DATA 9F,AB,4F, 06, 09,C5, 21, 0, 821 

2606 DATA 29,CD,FF, 86,00, 19,FA, 26, CF 

2616 DATA 3E,CD,AB,85,C1,CD, 09, BB, 185€ 
2620 DATA 38,06, 14, 7A,FE, 28, 20,E5, 1353 
2630 DATA 3E, 18, 32,82, 87, CD, 30,81, 166F 
2646 DATA 21,D9,83,CD,51,81,CD, d6, 1ASE 
2656 DATA. BB,FE, 41,28, 10,FE, 61,28, 1E17 
2666 DATA ÔC,FE, 52, CA, 4F,BB,FE, 72, 2284 
2670 DATA CA,4F,88, 18,69, 21,05, 3E, 2584 
2689 DATA CD, 73,85, 18,94,CD, 3D, 81, 2986 
2696 DATA 21,97,83,CD,51,81,CD, 6, 2033 
2700 DATA BB,FE, 44, 28, 10,FE, 64, 28, 36F2 
2719 DATA OC,FE, 56, 28,04,FE, 76, 20, 3412 


2724 DATA 
27134 DATA 
274% DATA 
275% DATA 
276% DATA 
277È DATA 
2780 DATA 
2799 DATA 
286% DATA 
2814 DATA 
2824 DATA 
2836 DATA 
284% DATA 
2856 DATA 
2865 DATA 
2876 DATA 
2884 DATA 
2896 DATA 
2999 DATA 
2916 DATA 
2929 DATA 
2934 DATA 
2946 DATA 
295% DATA 
296% DATA 
2976 DATA 
2984 DATA 
2994 DATA 
3669 DATA 
3414 DATA 
3626 DATA 
3436 DATA 
3644 DATA 
3956 DATA 
3960 DATA 
3676 DATA 
338% DATA 
369% DATA 
3196 DATA 
3114 DATA 
3126 DATA 
3136 DATA 
3149 DATA 
3154 DATA 
3166 DATA 
3176 DATA 
3189 DATA 
3194 DATA 
3206 DATA 
3219 DATA 
3220 DATA 
7236 DATA 
324% DATA 
325% DATA 
326 DATA 
3274 DATA 
3289 DATA 
3299 DATA 


ED,3E,41,18,62,3E,C1,32,3609 
9F,AB,3E, ZE, 32,61,85,C0,3471 
14,85,3E,47,32,61,85,21,3CC8 
82,87,36,18,C3,5D,84,CD, 468C 
3D,81,21,34,84,CD,51,81,4302 
CD,66,BB,FE, 43,28,27,FE, 47DE 

3,28,23,FE,4€,28,17,FE, 4B15 
6E,28,13,FE,56,28,13,FE,4E45 
74,28,0F,FE,51,28,04,FE,5165 
71,26,DD,97,18,1F,3E,01,53E0 
18,1B,3E,92,18,17,3E,02,5402 
CD,6E,BC,11,409,26,CD,9E,57F2 
BC,21,73,84,CD,51,81,CD, 5032 
96,BB,C3,5D, 80,32,85,87,5FD1 
ED, 7B,80,87,09,21,26,D3,6423 
66,6D,11,CE,88,C5,E5,06,67AD 
18,14,77,23,13,19,FA,E1,6A77 
91,00,08,09,236,64,61,50,6B0E 
CH,99,01,19,E8,C9,60,06,6E59 
96,7F,FF,FF,FF,FF,FF,FF,74D2 
FF,FF,FF,FF,FF,FF,FF,FF, 7CCA 
FF,C9,00,00,00,06,06,06,7E89 
67,87,F8,00,00,00,006,00, BG0F 
06,00, 00,00,00,00,00, 09, 800F 
06,2C,00,00,00,00,00,06,B94B 
18,97,F6,00,00,00,06,00,8162 
96,00,00,00,00,00,00,09,8162 
3C,93,06,06,00,00,00,06,81A1 
24,07,F8,09,00,00,00,04, 8206 
9F,FE, 00,00, 00,00, 06,06, B3CD 
7E,00,80, 00,00 ,00,60,064,84CB 
46,07,F8,00,00,06,00,00, B60A 
33,955, 80,00,06,00,00,06,8714 
3C,09,40,09,06,06,006,00,8799 
49,07,F8,00,06,06,00,06,88CF 
EA, AA,E0,04,06,06,06,00,B8B43 
99,60,46,00,00,066,06,09,BBB3 
46,07,F8,00,00,00,00,61,8CC3 
93, 99, 90,00, 06,00, 405,06, BDED 
99,009,46,09,06,06,06,00, 8DFD 
46,00,00, 1F,00,00,00,02,BESE 
AA, AA, A8,09,09, 00,00, 3E, 9098 
96,06,40,00,00,06,06,06,90D8 
46,00,00,71,C06,00,06,03,924C 
33,99,96,00,06,09,06,E3,9431 
84,99,46,00,00,00,66,06,94F1 
46,00,00,40,40,06,00,092,95B3 
AG, AA, AB, 99,06, 60,00,80,9782F 
86,06,40,00,00,06,00,04,98EF 
46,00,00,71,C0,60,00,03,9A6I 
99,99, 98,00,00,00,00,E3,9C48 
84,00,46,00,06,00,060,00,9D6B 
46,06,00,1F,00,66,60,02,9D69 
AA, AA, A8,09,04,06,00,3E,9FAI 
00,00,40,00,00,06,00,00,9FE3 
46,00,06,06,00,006,66,63, 926 
99,99, 20,90,00,00,06,09,A128 
90,006,40,00,06,00,06,06,A16B 


3296 DATA 
3316 DATA 
3320 DATA 
3:36 DATA 
3349 DATA 
3356 LATA 
336% DATA 
3376 DATA 
3380 DATA 
3196 DATA 
3499 DATA 
3419 DATA 
3424 DATA 
3435 DATA 
344% DATA 
3456 DATA 
3460 DATA 


49,06,00,00,06,00,00,02, A1AA 
AA, AA, AB, 99,00, 00,06, 06, ATA6 
99,06, 49,00, 00,06,00, 00, AZE6 
49,00,00,00,00,00,06,03, 4429 
53,99,958,09,00,00,00,06, A52E 
09,00, 0, 0û, 00,00, 00, 00, H56E 
46,00, 06,00, 00, 00,09, 62, ASAD 
AÀ, AA, A8, 60,06, 60,006,06,A7A9 
90,06,40,009,09,00,00, 04, A7E9 
40,00,00,00,00, 06,00, 07, AB2C 
93, 99, 268, 00,00,00,00,009, A92E 
99,00, 40,00, 00,00,00, 00, A96E 
49,00,06,00,00,00,00, 92, A9B0 
AA, AA, AB, 99,009, 06,06, 06, ABAC 
00,00,40,06,00,06,00,06,ABEC 
46,00, 00,00, 00,06,06,03,AC2F 
99, 99, 28, 00,00,00,00,00,AD31 


3476 DATA 06,66,40,06,00,00,06,06,AD71 
2486 DATA 46,06,00,00,06,06,06,02, ADS 
3496 DATA AA, AA, 4B,00,00,06,00,06, AFAF 
3504 DATA 66,06, 40,00,00,06,00, 06, AFEF 
3516 DATA 46,00,06,00,00,00,06,07,B632 


3529 DATA 
3536 DATA 
354% DATA 
355% DATA 
96% DATA 
579 DATA 
384 DATA 
3594 DATA 
3606 DATA 
2614 DATA 
3624 DATA 
3636 DATA 
364% DATA 
3654 DATA 
366 DATA 
3674 DATA 
3684 DATA 
3698 DATA 
3794 DATA 
3714 DATA 
3726 DATA 
3736 DATA 
3746 DATA 
375% DATA 
3760 DATA 
3779 DATA 
3784 LCATA 
379ù DATA 
3869 DATA 


+ 
Di 
+ 
J 
+ 
J 


99,99, 98, 00,00,00, 00,00, B134 
98,00, 40,00,00,00,00,00,B174 
45,00,06,00,00,06,00,02,B1B6 
AA, AA, AB, 09,00, 00, 04, 69, B3E2 
90,06, 40,00,00,06, 00,06, B5F2 
46,00,00,00,00,00,00,03,B435 
55,95, 98, 99,00,00,00,06,B537 
00,00,46,00,00,06,00,00, 8577 
46,00,00,00,00,00,06, 02, B5E9 
AA, AA, AB, 00,00 ,00,00,60,B7B5 
66,00, 49,09,00,00,00,00,B7F5 
46,00,06,00,00,00,00,03,B838 
55,99, 98, 09,00,00,60, 00, B73A 
09,06, 46,06,06,06,06,00,E977AÀ 
45,00,00,00,00,00, 00,92, B7BC 
AA, AA, AB, 09,00,06, 00,60, BEBB 
90,00,46,00,00,060,00, 60, BBFB 
46,06,00,00,00,00,06,03, BCIB 
55,955, 98,90,06,00, 00,09, BD3D 
96,06,40,00,00,00,00,66, BD7D 
49,00,00,00,00,06, 00,02, BDBF 
AA, AA, 48, 09,009,00,06, 00, BFBB 
00,00, 46,00,00,06,06,60, BFFB 
46,00,00,00,00,00,00,03,C92E 
99,99, 98, 09,00,00,00,06,C149 
96,00,40,00,00,00,006,00,C189 
45,00,00,00,06,00,00,62,C1C2 
AA, AA, AB, 09, 00,006, 06,06,C3BE 
99,06, 40,00,00,00, 00,06, C3FE 


3810 DATA 49,00, 00,00, 06, 00, 00,01, C43F 
3820 DATA 55,55, 50,09, 09, 00, 00, 00, C539 
3830 DATA 06,00, 40,00, 00, 09, Gù, 00, C579 
3840 DATA 4ÿ, 00, 00,06, 00, 0, 00,00, C5B9 
3854 DATA EA, AA, ED, 06, 06, 09, 00, 0ù, CB2D 
3860 DATA 09,00, 40,00, 09, 00, 00, 00, CB6D 
3870 DATA 49,00, 00,00, 00, 09, 0, 00, CBAD 


2884 DATA 35,55, 89,00,00,06,06,66,C9B7 
3896 DATA 46,66,46,00,00,00,00,00,C9F7 
3966 DATA 46,09,06,00,00,00,00,06,CA37 
3916 DATA 6F,FE,00,00,00,06,06,00,CB44 
3920 DATA 66,00,49,06,00,06,00,06,CBB4 
3936 DATA 46,00,00,00,00,06,06,06,CBC4 
3940 DATA 06,09,00,00,00,06,060,06,CBC4 
3956 DATA 06,00,44,00,06,00,00,00,CC04 
2966 DATA 46,00,009,00,00,06,00,06,CC44 
3976 DATA 06,60,00,00,00, 06,04, 60,CC44 
3984 DATA 06,06,46,00,00,00, 00, 00, CCB4 
3994 DATA 46,009,06,00,00,00,00,60,CCC4 
4606 DATA 06,00,00,00,00,06,009,06,CCC4 
4610 DATA 06,00, 40,00,00,66,00,00,CD04 
4026 DATA 46,66,00,00,00,06,00,06,CD44 
4924 DATA 06,00,00,00,00,00,40,00,CD44 
4640 DATA 06,66, 46,99,00,06,00,06,CDB4 
4958 DATA 46,00,06,06,00, 66,00, 00,CDC4 
4069 DATA 47,F8,00,00,00,06,006,00,CEC3 
4670 DATA 00,00, 44, 00,00, 00,06, vu, LFU3 
4686 DATA 46,66,00,00,00,00,00,00,CF43 
4699 DATA 4F,FC,CO,00,00,06,064,60,D14E 
4196 DATA 00,06, 46,00,00,09,00,009,D1BE 
4116 DATA 46,06,06,00,066,06,09,03,D1D1 
4126 DATA E7,F9,F8,00,00,46,60,96,D4A9 
4136 DATA 66,00,40,00,00,006,06,00, D4E9 
4146 DATA 46,00,06,00,00,00,60,07,D376 
4156 DATA F6,03,FC,06,00,06,09,00,D71F 
4166 DATA 66,06,46,00,00,06,00, 00, D75F 
4176 DATA 46,00,00,06,00,66,06,0F,D7AE 
4186 DATA Ei,56,FF,06,00,06,60,00, DIDE 
4196 DATA 06,00, 40,00,00,06,06,00,DAIE 
4206 DATA 46,00,06,06,006,06,06,27,DAB5 
4216 DATA CA, AA,78,96,00,06,00, 00, DC71 
4226 DATA 96,09, 46,06,00,06,00,06,DCB1 
4236 DATA 46,40,00,00,00,46,60,36,DD21 
424% DATA 15,95,07,80,00,00,06, 60, DE12 
4256 DATA 06,00, 40,00,00,00,06,00, DE 52 
4266 DATA 45,60,06,00,00,00,00,7F,DF11 
4276 DATA 2A,AA,9F,C0,00,00,0û,00,E144 
4280 DATA 95,00, 46,47,00,06,00,60,E187 
4294 DATA 7F,FF,FF,FF,FF,FF,FF,FF,EBFF 
4709 DATA FF,FF,FF,FF,FF,FF,FF,FF,F6F7 
42:19 DATA FF,FF,C0,03,C0,66,00,66,F478 
4120 DATA 66,00,00,00,00,06,00,0%,F478 
4316 DATA 96,00,00,00,00,00,69,00,F478 
4540 DATA 06,00,06,01,F0,09,00,06,F569 
4256 DATA 66,00,06,00,00,06,00,01,F56A 
266 DATA F8,00,06,00,00,00,06,00,F662 
376 DATA 06,06, 00,01,F8,00,06,00,F75B 
4:86 DATA 66,00,00,06,00,06,6F,FF,FB69 
4:96 DATA F,09,00,00,00,00,06,00,F959 
4400 DATA 66,60,00,01,FE,006,00,09,FASB 
4416 DATA 66,00,006,00,00,3F,FF,FF,FC95 
4426 DATA E9,66,00,00,00,60,06,09,FD75 
4426 DATA 06,09,00,09,FF,80,69,00,FEF4 
4446 DATA 06,00,06,01,FF,FF,FF,FF,2FD 
4455 DATA 86,06, 00,00,00,00,06,06,37D 
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448 DATA 06,00,01,FF,FF, C0, 00,00, 63C 
4470 DATA 00,00,0F,FF,FF,FF,FF,FF, E46 

4480 DATA 06,00, 00, 00,06, 00,00, 00, B46 

4496 DATA 03,FF,FF,FF,FF,F0,00, 0, 1035 
4506 DATA 00,7F,FF,FF,FF,FF,FF,FE, 164D 
4519 DATA 09,00, 00, 00, 09, 00,07,FF, 1785 
4526 DATA FF,FF,FF,FF,FF,FC, 00,01, 1DAB 
4530 DATA FF,FF,FF,FF,FF,FF,FF, FC, 2546 
4549 DATA 06,00,00,00,0F,FF,FF,FF, 28AC 
4550 DATA FF,FF,FF,FF,FF, FE OF, FF, 2FB3 
4569 DATA FF,FF,FF,FF,E0, 00, 7F,FB, 3606 
4576 DATA 00,00, 1F,FF,FF,FF,FF,FF, 3B20 
4580 DATA FF,FF,FF,FF,FF,F8,FF,FF,4311 
4596 DATA Ed, 00, 00, 09, 00,00, FF, Ed, 45D0 
4606 DATA 3F,FF,FF,FF,FF,FF,FF,FF, 4068 
4616 DATA FF,FF,FF,FF,FF, C0, 00, 00, 5203 
4626 DATA 00,00, 00,00, 00,01,FF,FF, 54C2 
4636 DATA FF,FF,FF,FF,FF,FF, FF, FF, SCHA 
4646 DATA FF,FF,F8,01,FF, 00,00, 00, 60B0 
465% DATA 0,00, 00,00,00,03,FF,FF, 42B1 
465 DATA FF,FF,FF,FF,FF,FF,FF, FE, GAA2 
4670 DATA 09,00, 00, 03,F8, 09, 00, 00, 4B9D 
468% DATA 09,00, 00, 00, 00,07,FF,FF, 6DA2 
469% DATA FF,FF,FF,FF. FC, 00,00, 00, 729A 
4706 DATA 00,00, 00,07,C0,06,00,00, 7361 
4710 DATA 09,00,00, 00,00, 0F,FF,FF, 756E 
4726 DATA FF,FE, 0, 00, 06,00, 00, 00, 7768 
4736 DATA 00,00, 00, 0F, 00, 00, 09, 00, 777A 
4744 DATA 06,00,05,00,09,1F,FE, 0, 7897 
4750 DATA 00,00, 06,00, 06,06, 40 96,7897 
474 DATA 06,00,00, 18, 00, 09, 09, 00, 7BAF 
4776 DATA 09,00, 0û, 00,00, 00, 00,00, 7BAF 
4784 DATA 00, 00,00, 00, 00, 00, 05, 00, 7BAF 
4796 DATA 09,00, 00, 00,00, 0, 00, 00, 7BAF 
ago DATA 7F,FF,FF,FF,FF,FF,FF,FF, 8027 
4816 DATA FF,FF,FF,FF,FFFF, FF, FF, B81F 
4820 DATA FF,FF, CO, 06, 09, 06, 00, 00, BADD 
4830 DATA 40,00, 00, 00, 09, 00,00, 7F, BE9C 
4849 DATA 2A, AA,9F, CO, 00, 00, 09, 09, BDCF 
4856 DATA 00,00, 40, 00, 00, 00,00, 00, BEGF 
4Bbé DATA 40, 00,00, 00, 00,00, 09, 34, BE7F 
4876 DATA 15,55, 07,80, 00, 00, 06, 00, BF70 
4880 DATA 00,00, 40, 00, 00, 00, 00, 00, BFE0 
4896 DATA 46,00, 00, 00, 09, 09, 00, 27, 9017 
4900 DATA CA, AA, 78, 00, 09,00, 0Ô, 00, 9203 
4910 DATA 06,00, 40, 00,00, 00, 09, 00, 9243 
4926 DATA 46,00, 00, 00, 00, 09, 00,07, 9292 
4930 DATA E1,50,FF, 00,00, 00, 09, 00, 9402 
4949 DATA 0,00, 40, 00, 00, 06, 09, 0D, 9502 


4956 DATA 46,06,06,00,06,00,00,07,9549 


4960 DATA F,03,FC, 00,00, 00,00, 00, 97238 
4976 DATA 90,00, 40,00,00, 00, 00,00, 9778 
4980 DATA 40,00, 00, 00,00 ,00,00,03,97EB 
4996 DATA E7,F9,FB, 00,00, 00,00, 00, 9493 
5006 DATA 06,06, 46,00, 00,00, 09, 09, PAD3 
5619 DATA 46,00, 00, 00,00, 00,00, 00, 9B13 
5029 DATA 4F,FC, CO,06, 00, 09, 05, 09, 9D1E 
5036 DATA 09,00, 40,00, 00,00, 00, 09, 9D5E 
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5949 DATA 45,66,06,69, 0,66, 0, 69, SD9E 
36050 DATA 97,F8,06,66,00,66,06,06,SE9D 
5669 DATA 65,06, 406,06,60,66, 00,06, JEDD 
5979 DATA 46,00, 00,00, 00,06, 00,06, 9F1D 
5080 DATA 66,09,69,00,00,60,66,66,9F1D 
5696 DATA 06,66,46,06,60,60,66,06, 9F5D 
3199 DATA 45,06, 00,09, 0û,66,60,06, 9F9D 
5119 DATA 69,60,06,00,00,06,66, 06, 9F9D 
5129 DATA 66,06,46,06,66,06, 66,00, 9FDD 
3139 DATA 49,06,06,00,60,00,06,00, AG1D 
5144 DATA 93,E0,06,00,06,00,06,06,A166 
3159 DATA 06,06, 40,00, 00,66, 00,06, A146 
3168 DATA 46,00,66,00,00,60,60,06,A180 
5176 DATA 6E,38,06,00,0,00,66,60, AÏCé 
5189 DATA 65,66,45,06,06,66,00, 69, A266 
5194 DATA 46,69,06,00,00,69,66,00, A246 
3204 DATA 08,08,00,00,06,0û,00, 0, A256 
5219 DATA 66,69, 46,60, 06, 00,06, 00, A296 
226 DATA 45,06,00,09,60,69,00,69, A2D6 
3236 DATA 6E,38,00,06,00,06,00, 09, ASIC 
5249 DATA 69,06,40,00,60,00,06, 08, ATSC 
9290 DATA 46,60,06,00,006,00,06,06,A39C 
3264 DATA 03,E9,06, 00,006, 00,66, 0, A47F 
5276 DATA 66,00,46,06,66,60,66,00, A4BF 
5260 DATA 46,69,006,00,06,00,00, 00, A4FF 
3299 DATA 96,09, 006,006,00,60,66, 00, A4FF 
3300 DATA 09,09,46,00,06,60,00, 60, AS3F 
5310 DATA 46,66,06,06,60,60, 06,96, AS7F 
3329 DATA 05,00,00,00,06,06, 60,06, AS7F 
3330 DATA 99,09,46, 06, 08,66,66, 06, ASEF 
9349 DATA 46,03,FF,FF,FF,FF,FF,FF, ABFC 
3250 DATA FF,FF,FF,FF,FF,FF,FF,FF,B3F4 
5260 DATA FC, 64,46,00,69,60, 06,00, 530 
3370 DATA 46,6F,1F,FF,FF,FF,FF,FF, BA9S 
3300 DATA FF,FF,FF,FF,FF,FF,FF,FF.C291 
5396 DATA FF,09, 46,00, 06,60, 60,90, C3D6 
5406 DATA 46,1C,07,FF,FF,FF,FF,FF,CS2E 
5416 DATA FF,FF,FF,FF,FF,FF,FF,FF,D126 
5426 DATA FF,85,40,00,06,66, 6,64, D2ES 
3436 DATA 46,18,03,FF,FF,FF,FF,FF,DB3E 
5449 DATA FF,FF,FF,FF,FF,FF,FF,FF,E633 
5456 DATA FF,89,46,00,00,66,64,06,E1F2 
5469 DATA 46,1E,0F,FF,FF,FF,FF,FF,E75A 
5476 DATA FF,FF,FF,FF,FF,FF,FF,FF,EF52 
5480 DATA FF,86,46,00,06,00,00,00,F111 
5499 DATA 46,1E,0F,FF,FF,FF,FF,FF,F679 
9900 DATA FF,FF,FF,FF,FF,FF,FF,FF,FE7I 
5919 DATA FF,89,40,00, 00,09, 00, 00, C0 
524 DATA 48,18,03,E6,00,06,00,00, 1FB 
3530 DATA 56,66,06, 06, 00,60,66,06,1FE 
9940 DATA 3F,89,40,60,06,00, 00,00, 2FA 
5599 DATA 46,18,43,FF,FF,FF,FF,FF,896 
9960 DATA FF,FF,FF,FF,FF,FF,FF,FF, 1988 
3579 DATA FF,80,40,66,00,60,0b,66,1247 
5986 DATA 46,18,A3,FF,FF,FF,FF,FF, 1830 
9990 DATA FF,FF,FF,FFFF,FF,FF,FF,2835 
5606 DATA FF,86,46,06,00,0û,00,06,21F4 
5616 DATA 46,19,13,FF,FF,FF,FF,FF,275E 


5629 DATA FF,FF,FF,FF,FF,FF,FF, FF, 2F53 
5630 DATA FF, 80, 40,00,00,00,00,00,3112 
Sé40 DATA 46,18,03,FF,FF,FF,FF, FF, 3668 
5650 DATA FF,FF,FF,FF,FFSFF, FF, FF, SE6 
Sébb DATA FF, 80, 40,00, 00, 00, 00,00, 401F 
5676 DATA 46,1F,FF,FF,FF,FF,FF,FF, 4678 
SéBÿ DATA FF,FF,FF,FF,FF,FF,FF,FF, 4E70 
5690 DATA FF, 80, 40,00, 00, 00,00, 00, 502F 
5706 DATA 49, 1F,FF, Ed, 00, 09, 09,00, 526D 
5716 DATA 06,00, 0, 00, 00, 00,00, 00, 524D 
5726 DATA 3F,80, 40, 00, 09,00, 00, 00, 536€ 
5736 DATA 40,1F,FF,FF,FF,FF,FF,FF, 5905 
5740 DATA FF,FF,FF,FF,FF,FF,FF,FF, 61BD 
5750 DATA FF,86, 40,00, 00, 09,00, 00, 637€ 
5760 DATA 40,1F,FF,FF,FF,FF,FF,FF, 6905 
5776 DATA FF,FF,FF,FF,FF,FF,FF,FF, 7100 
5780 DATA FF, 86, 40,00, 00, 00, 00, 09, 738€ 
5796 DATA 40,1F,FF,FF,FF,FF,FF, FF, 79E5 
Sgoû DATA FF,FF,FF,FF,FF,FF,FFFF, 81DD 
5816 DATA FF,80, 40, 00, 09, 00,00, 00, B39C 
5829 DATA 40,1F,FF,FF,FF,FF,FF,FF,80F5 
5836 DATA FF,FF,FF,FF,FF,FF, FF, FF, 91ED 
5840 DATA FF, 80, 40,00, 00, 00, 05, 09, J3AC 
5856 DATA 40,1F,FF,FF,FF,FF,FF, FF, 9AGS 
5860 DATA FF,FF,FF,FF,FF,FF,FF, FF AÎFD 
5876 DATA FF, 80, 40,00, 00, 09,00, 00, AZBC 
5886 DATA 49, 1F,FF,E0, 00, 06, 00,00, ASFA 
5899 DATA 09,00, 00, 00, 00, 09, 00, 00, ASFA 
5900 DATA 3F, 60,40, 00,00, 00, 00, 00, A6F9 
5919 DATA 40,1F,FF,FF,FF,FF,FF,FF, AD52 
5920 DATA FF,FF,FF,FF,FF,FF,FF,FF, B54A 
5936 DATA FF,86, 40,00, 00, 09,006, 00, 8709 
5946 DATA 46,1F,FF,FF,FF,FF,FF,FE, BDéi 
5950 DATA 47,C0,0F,80,7F,FF,E1, C3, C1D9 
5960 DATA FF,86, 40,08, 09, 09, 09, 04, C398 
5976 DATA 46,1F,FF,FF,FF,FF,FF,F9,C9EE 
5980 DATA F9,CF,FE, 7F,9F,FF,C3,87, DÔ18 
5996 DATA FF,80, 40,00, 00,00 ,00, 00, DID7 
Lbÿ DATA 40,1F,FF,FF,FF,FF,FF,F3,DB24 
616 DATA FF,CF,FE, 7F,9F,FF,87,0F, DDA3 
626 DATA FF, 80, 40,00, 00, 05, 06, 06, DF 62 
8930 DATA 40,1F,FF,FF,FEFF,FF,F3,ESAF 
449 DATA FF,C0,7F,FC, 7F,FF,OE, 1F,EA94 
8456 DATA FF,80, 40,00, 00, 09,00, 00, EC53 
&6ÿ DATA 46,1F,FF,FF,FF,FF,FF,F3,F240 
4676 DATA FF,CF,FF,B3,FF,FE, 10, 3F,FE4B 
&B0 DATA FF, 86, 40,00, 00, 00, 09, 00, FAO7 
4696 DATA 29,1F,FF,FF,FF,FF,FF,F9,F9 
bi06 DATA F9,CF,FE, 3F,FF, FC, 38, 7F, 686 
6116 DATA FF, 80, 80, 00, 00, 00, 00, 00, BAF 
&120 DATA 18,1F,FF,FF,FF,FF,FF,FE, EDF 
6136 DATA 07,CF,FE, 00, 1F,F8, 70,FF, 1339 
6149 DATA FF,83, 00,00, 00, 09, 00, 06, 14EB 
6156 DATA 07,9F,FF,FF,FF,FF,FF,FF, 1E5B 
bié® DATA FF,FF,FF,FF,FF,FF,FF,FF, 2353 
8176 DATA FF,FB, 00, 00, 00, 00, 00, 00, 2544 
&180 DATA 09, 2544 

&196 END 


Utilisez à fond toutes les possibilités de votre 


Tout pour programmer AMSTRAD 


votre AMSTRAD 

Véritables passionnés de l'AMSTRAD), les 

auteurs de cet ouvrage ont passé des mil- Vous possédez un AMSTRAD 
liers d'heures à concevoir, rédiger et tes- CPC 464, 664 ou 6128. 


ter les dizaines de programmes. À 
+ Des programmes opérationnels à Voici enfin l'ouvrage que vous 


100 % De l'utilitaire CP/M à la création attendiez pour tirer le meilleur 
de graphiques à haute résolution, en pas- parti de votre micro-ordinateur : 


sant par des jeux sophistiqués ou la com- “Comment exploiter toutes 
mande synthétiseur de son, vous déve- les ressources et augmenter 
loppez des applications captivantes. rman 

+ Un choix très étendu de langages RE 

de programmation. Le Basic, le Logo, a 
l'Assembleur, le Turbo-Pascal, et ultérieu- Il traite en profondeur des 


rement, le Foth, le Modula. 
+ Des trucs et des conseils pratiques. 
Vous découvrez également de nombreu- 


techniques de programmation, 
ainsi que de la structure interne 


ses astuces : comment transférer du CPC et des extensions 

464 au 664, ou au 6128, comment insé- de votre ordinateur. 

rer des utilitaires et gagner de la place 

en mémoire. De plus, cet ouvrage restera 
+ Vous élargissez le champ d'action en permanence à la pointe 
de votre AMSTRAD. Avec la mise en de la technique, grâce 
pratique des programmes et des “recet- à un service de compléments 
tes”, vous découvrez de nouvelles et pas- et de mises à jour exclusifs. 


sionnantes utilisations de votre ordinateur. 


Le complément indispensable 
de votre AMSTRAD 


Présentation : classeur à feuillets 
mobiles 400 pages, grand format 
21x29,7 cm, 450 F TTC plus votre 
cadeau gratuit : 3 mois d'abonnement 
à CPC. 
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A Editions Weka - 12, cour St-Eloi 


Tout pour augmenter 
les performances NOUVEAU 
de votre AMSTRAD 


Cet ouvrage répond “par le menu”, à tou- 
tes les questions que vous vous posez sur 
le fonctionnement de votre AMSTRAD. 
Il vous indique comment faire pour aug- 
menter considérablement ses 
performances. 

+ Votre matériel n’a plus de secrets 
pour vous. Fréquences d'horloge du 
Z80 CPU, interface PIO 8255, ports 
d'extension. Vous faites le tour complet 
de votre AMSTRAD, des schémas vous 
montrent en détail le rôle de chaque 
composant. 

+ Vous. mettez en place vous-même 
des extensions. Portez la mémoire de 
votre CPC 6128 à 1 Mo, mettez en place 
une interface, raccordez de nouveaux 
périphériques... Des instructions de mon- 
tage très précises vous permettent de 
procéder, à moindre frais, à toutes les 
opérations qui augmentent les possibili- 
tés de votre AMSTRAD. 


Votre ouvrage est 
toujours d'actualité ! 


Cet ouvrage, unique par sa conception, 
vous fait bénéficier d'un atout considé- 
rable : il évolue à la même vitesse que 
les techniques et le matériel que vous uti- 
lisez. Trois à quatre fois par an, des mises 
mises à jour et compléments vous seront 
envoyés (150 pages, environ 215 F, ser- 
vice annulable sur simple demande). 
Vous disposez ainsi régulièrement de 
nouveaux programmes et d'une informa- 
tion parfaitement à jour sur les nouveaux 
matériels et logiciels. 

Profitez vite de notre offre 
de lancement ! 

Pour passer le plus vite possible à la pra- 
tique sur votre AMSTRAD), réservez dès 
aujourd'hui votre exemplaire de “Com- 
ment exploiter toutes les ressources et 
augmenter les performances de votre 
AMSTRAD”. Remplissez et renvoyez 
sans plus attendre le Bon de souscription 
ci-dessous, accompagné de votre règle- 
ment. Vous êtes ainsi assuré de recevoir 
cet ouvrage dès sa parution et vous réa- 
lisez une économie de 20 % par rapport 
au prix public à parution. 


* OFFRE UMITÉE 4e 75012 Paris " 
AU 31 08.87  _— CR Ma garantie : à Re sustasat 


BON DE COMMANDE 


A compléter et à renvoyer sous enveloppe, sans timbrer à : 


OUT faites-moi parvenir un exemplaire de “Comment exploiter toutes Nom 


le renvoyef * 
remboursé im! 
gralement: 


les ressources et augmenter les performances de votre AMSTRAD" 


et mon cadeau gratuit. J'ai bien noté qu'en réservant cet ouvrage dès Prénom 
aujourd'hui, je bénéficie de mon cadeau gratuit. Je recevrai également les Adresse 
compléments et mises à jour (je garde la possibilité de vous les retourner Code P l Vill 
sans rien vous devoir, dans un délai de 15 jours après chaque envoi) oue:Faste ne 
Date Signature 


Je joins le montant de ma commande (soit 450 F TTC) par 


chèque bancaire !! virement postal 3 volets à l'ordre des Editions Weka (* Offre valable jusqu'au 31.08.87) CPC 752604 


CD» 


Nous allons voir, ce mois-ci, dans 
la suite de notre étude des fonc- 
tions du BDOS de CP/M, quelques 
fonctions diverses, ainsi que les 
fonctions de lecture et écriture en 
mode ‘’Random’’, c’est-à-dire en 
accès relatif. 


LECTURE DE L'ADRESSE 
DU VECTEUR D'ALLOCATION DISQUE. 


Cette fonction est destinée principale- 
ment à l'écriture d'utilitaires et permet de 
connaître l'adresse du vecteur d’alloca- 
tion des blocs du disque courant. Ce vec- 
teur, dont la taille dépend de la capacité 
physique de l'unité, est une zone 
mémoire de plusieurs octets contigus. 
Dans cette zone, chaque bit à 1 repré- 
sente un bloc alloué. En analysant ce 
vecteur, on peut ainsi connaître la place 
libre sur une disquette, etc. 

En entrée: C=27 

En sortie: HL contient l'adresse du vec- 
teur d'allocation du disque courant. 


PROTECTION EN ECRITURE 
DU DISQUE COURANT 


Cette fonction permet de protéger en 
écriture le disque courant. Ainsi, après 
l'exécution de cette fonction, toute ten- 
tative d'écriture, de suppression de 
fichier. sera rejetée. Cette protection 
n'est annulée que par un redémarrage de 
CP/M, à chaud ou à froid. 

En entrée: C = 28 

En sortie: Rien. 


LECTURE DU VECTEUR DES DISQUES 
PROTEGES EN ECRITURE. 


Cette fonction fournit dans HL un vec- 
teur de 16 bits qui indique les disques qui 
sont protégés en écriture. Le disque A 
correspond au bit de poids le plus faible 
(Bit O du registre L). Cette fonction per- 
met donc, par exemple, de s'assurer que 
le disque courant n'est pas protégé en 
écriture, avant de tenter la création d'un 
fichier. 

En entrée: C=29 

En sortie: HL contient le vecteur des dis- 
ques protégés en écriture. 
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| INITIATION A 


POSITIONNEMENT 
DES ATTRIBUTS D'UN FICHIER. 


Ainsi que nous l'avons indiqué dans 
notre description de la structure du cata- 
logue, les 3 lettres correspondantes à 
l'extension associée au nom du fichier 
ont leurs bits 7 qui sont utilisés pour des 
indicateurs. 

En voici la signification: 

— T1 (le premier octet de l'extension) : 
Fichier en Read/Only si le bit 7 est égal 
à 1. 

— T2 Fichier système (n'apparaît pas 
dans une liste DIR) bit 7 =1. 

— T3 Attribut ‘archive’ si bit 7 = 1. 
Cette fonction permet donc de modifier 
l'état de ces indicateurs pour un fichier 
existant. 

En entrée: C = 30 DE = adresse d'un FCB 
contenant les nom et extension du fichier 
dont on veut modifier les indicateurs. 
L'extension du FCB contient un code 
retour identique à celui d'une ouverture, 
c'est-à-dire O à 3 pour une fonction exé- 
cutée correctement. 

Voir exemple en listing 1. 


LECTURE DE L'ADRESSE 
DU DISK PARAMETER BLOCK. 


Cette fonction permet de connaître 
l'adresse des paramètres du disque cou- 
rant. Ces paramètres contiennent des 
données utilisées par CP/M pour sa ges- 
tion de l’espace disque, telles que le 
nombre maxi de blocs, le nombre de pos- 
tes possibles dans le catalogue, etc. Ces 
informations sont essentiellement utili- 
sées par des utilitaires ou des program- 
mes système. 

En entrée: C=31 

En sortie: HL contient l'adresse du DPB. 


LECTURE/ECRITURE 
DU NUMERO DE USER COURANT. 


Rappelons que lorsque l'on démarre 
CP/M, on se trouve sous le numéro d'uti- 
lisateur 0. Mais il est possible de modi- 
fier ce numéro d'utilisateur, de façon à 
créer des fichiers associés à un numéro 
d'utilisateur donné, fichiers que l'on ne 


Francis VERSCHEURE 


‘‘voit'’ que sous ce numéro. Ceci est 
effectué par la commande USER. Et bien, 
il est possible de faire la merñe chose 
dans un programme avec la fonction 32. 
En entrée: C = 32 E = OFFH si on veut lire 
le numéro USER ou E = le numéro USER 
que l'on veut utiliser (0 à 15). 

En sortie: À = le numéro User dans le cas 
ou E =OFFH. Voir exemple en listing 2. 


LECTURE EN ACCES 
“RANDOM” D'UN FICHIER . 


Cette fonction permet la lecture en accès 
‘‘relatif” d'un fichier préalablement 
ouvert par la fonction 15. Comme nous 
l'avons vu dans la description du FCB 
(Bloc de controle fichier), les octets 33 
et 34 constituent sur 16 bits un numéro 
d'enregistrement relatif, qui va de O à 
65535. L'octet 35 doit être à O. Préala- 
blement à la demande de lecture en 
accès relatif, il faut donc modifier les 
octets 33 et 34 du FCB du fichier con- 
cerné pour y indiquer le numéro relatif de 
l'enregistrement de 128 octets que l'on 
veut lire. Le fonctionnement de la lecture 
est identique au mode séquentiel et les 
données lues sont mouvementées à 
l'adresse DMA courante. Par contre, le 
numéro d'enregistrement n'est pas incré- 
menté. Après une lecture en mode rela- 
tif, il est possible de continuer à lire le 
fichier en mode séquentiel et cette lec- 
ture séquentielle commencera par l'en- 
registrement courant, c'est-à-dire en fait 
celui qui vient d’être lu en mode relatif. 
Bien sur, on peut aussi lire en mode rela- 
tif les enregistrements successifs en 
incrémentant à chaque opération le 
numéro d'enregistrement. Mais l’on peut 
aussi revenir en arrière en décrémentant 
le numéro d'enregistrement. L'accès 
relatif est appelé ainsi car chaque enre- 
gistrement de longueur fixe est accessi- 
ble par son numéro d'enregistrement 
relatif au début du fichier. La dénomina- 
tion ‘‘’accès direct’ est impropre, car elle 
désigne de façon précise une technique 
ancienne d'indexation hardware permet- 
tant un accès par clé. 

En entrée: C = 33 DE = contient l'adresse 
d'un FCB d'un fichier ouvert et dont les 


octets 33 et 34 contiennent le numéro 
relatif de l'enregistrement à lire. 

En sortie: À contient O si la lecture s'est 
effectuée sans erreur. 

— La valeur 1 indique que l'enregistre- 
ment n'existe pas. 

— La valeur 3 indique que l'on ne peut 
‘’fermer'’ l'extension courante. 

— La valeur 4 indique que l'extension 
demandée n'existe pas. 

— La valeur 6 indique que le numéro de 
l'enregistrement demandé dépasse la 
capacité du disque. 


En CP/M Plus, le registre H contient un 
code d'erreur physique éventuelle. 
Voir exemple en listing 3. 


ECRITURE EN ACCES 
‘’RANDOM'" D'UN FICHIER. 


Cette fonction permet d'effectuer des 
écritures en accès relatif dans un fichier 
préalablement ouvert, soit par la fonction 
15, soit par la fonction 22. Chaque appel 
à la fonction 34 va donc prendre les 
128 octets se trouvant à l'adresse des 
transferts disque et les écrire dans le 
fichier concerné dans l'enregistrement 
indiqué par les octets 33 et 34 du FCB. 
Comme pour la lecture, le numéro d'en- 
registrement n'est pas mis à jour après 
l'opération et on reste donc positionné 
sur l'enregistrement écrit. Signalons que 
l'on peut très bien écrire l'enregistrement 
O puis le 1000. Dans ce cas, les enre- 
gistrements 1 à 999 n'existent pas, ce 
qui pose quelque fois bien des problè- 
mes... Pour cela, un fichier en accès rela- 


FIGURE 1 
Exemple d'utilisation de la fonction FA. 
EDQS &au 5 
txi d- FCH ; 
5 dont on modifie les attributs. 
my i CA | 
call BDOS 
inr a 5 Code retour egal a FFH si erreur 
jZ Erreur 
FCB: db [a] 
db “FTEHIERT" 
db DES "AT 
db ?T'+80H 5; Pasitionne attribut d'archivage 


tif est souvent pré-formaté par l'écriture 
d'enregistrements vides de O au nombre 
maxi d'enregistrements prévus. Cette 
procédure permet aussi d'éviter un trop 
grand éparpillement des blocs alloués au 
fichier. 

En entrée: C = 34 DE = contient l'adresse 
du FCB d'un fichier ouvert dont les 
octets 33 et 34 contiennent le numéro 
d'enregistrement. 

En sortie: À contient le code retour, O si 
pas d'erreur et non nul dans le cas con- 
traire avec les mêmes valeurs d'erreur 
que pour la lecture, plus la valeur 5 qui 
signifie qu'il n'y a plus de place dans le 
catalogue. 

Voir exemple en listing 4 


LECTURE DE LA TAILLE D'UN FICHIER. 


Cette fonction permet de connaître la 
taille réelle d'un fichier séquentiel et la 
taille ‘‘virtuelle'’ d'un fichier en accès 
relatif créé avec des trous. En effet, dans 
les deux cas, la fonction renvoie dans les 
octets 33 à 35 d’un FCB le numéro de 
l'enregistrement qui suit la fin de fichier. 
Ainsi, si un fichier séquentiel contient 
256 enregistrements, la valeur renvoyée 
dans les octets 33 et 34 sera 257, l'oc- 
tet 35 étant à O. Mais, dans le cas de 
notre fichier à accès relatif contenant 2 
enregistrements, le O et le 1000, la 
valeur renvoyée sera 1001, alors que 
notre fichier ne contient que 2 enregis- 
trements. 

En entrée: C = 35 DE = contient l'adresse 
d'un FCB de fichier, ouvert ou non. 
En sortie: Les octets 33 à 35 contiennent 


la taille du fichier. 
Voir exemple en listing 5. 


DETERMINE LE NUMERO 
D'ENREGISTREMENT 


Lorsqu'un fichier a été accédé en 

séquentiel, le numéro relatif d'enregistre- 
ment n'a pas été utilisé et les octets 33 
à 35 sont quelconques. Pour connaître 
le numéro relatif de l'enregistrement cor- 
respondant à la position atteinte dans le 
fichier, il suffit d'appeler la fonction 36 
qui positionnera la valeur correcte dans 
les octets 33 à 35 du FCB du fichier. 
En entrée: C = 36 DE = adresse du FCB 
d'un fichier ouvert et accédé en séquen- 
tiel. 
En sortie: les octets 33 à 35 du FCB con- 
tiennent le numéro relatif d’enregistre- 
ment correspondant à la position atteinte 
dans le fichier. 


ECRITURE EN ACCES ‘RANDOM 
AVEC REMISE A ZERO PREALABLE. 


Cette fonction est identique à la fonction 
34. La seule différence est que si l'on 
écrit un enregistrement non encore 
alloué, celui-ci est remis à zéro binaire 
avant d'effectuer l'écriture des données. 
En entrée: C = 40 DE = adrèsse d'un FCB 
ouvert avec numéro relatif d'enregistre- 
ment dans les octets 33 et 34. 

En sortie : À contient le code retour. Voir 
fonction 34. 

Voilà, nous avons terminé l'étude des 
fonctions présentées à la fois en CP/M 
2.2 et en CP/M Plus. Le mois prochain, 
nous continuerons par les fonctions qui 


l ne sont présentées qu'en CP/M Plus. 


Adresse du FCB contenant vom et extension du fichier 


Z6-C$-FCHI 


Une ligne téléphonique est à votre disposition, vous met- 
tant en contact direct avec la rédaction. Ceci est un ser- 
vice sans égal ! Respectez simplement les horaires et les 


jours que nous vous indiquons : 


MERCREDI de 9hà 12hetde14hà 17h. 
VENDREDI de 9 h à 12 h seulement. 
Tout appel en dehors de ces créneaux sera refoulé : ne 
dépensez pas inutilement votre argent ! 


Le numéro : 99.52.98.11. 


99.52.98. 1 1 e 
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FIGURE 2 


Exemple d'utilisation de la fonction 2Z. 

EDOS eau = 
my i Es 32 
fiv i 2, QFFH 35 Lecture du user caurant 
call EDOS 
sta OLDUSER %; et sauvegarde 
mvi Es 32 
my i 23 4 5 Pasitionne le USER a 4. 
call BDOS 

| OLDUSER: db (r) 


FIGURE 3 


a 
@ 5 L'actet 35 a 0. 


Numero d'enregistrement dans FCR Z 


Exemple d'utilisation de la fonction 23. 
EDOS eau a) 
OPEN equ 15 
READR equ EE 
my: £, OPEN 5 Ouverture 
Lxi d, FCB ; du 
call BDNS ; fichier 
inr a 
jz ErrOpen 
Ki hs 3 5: Lecture de l'enregistrement Z 
Sh!d RECNO ; 
mv i 1 REQDR 5 et Iécture en acces 
ii d1 FCH 5: des donnees àa l'adresse DMA 
call BDOS 
ora a 
jnz ErrReadr 
FCE: db Q 5 disque courant 
db FE F6HTIER I’ 
db ? DAT' 
db 8:04, 0,0 
ds 52=($-FCB) 
db a 


3% 


FIGURE 4 
Exemple d'utilisation de la fonction 34. 


EDOS aqu 5 
WRITER eau 34 


h3 Ecriture de l'enregistrement 
FCB+2ZZ humero d'enregistrement en 37 et 34, 
£: WRITER 
d; FCR 5 Adresse du FCB du fichier ouvert. 
BDOS 
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| Qra a æ 
| 
| jnz ErrWriter ABONNEZ 


FCB: db 4] 
db *FICHIERI’ 
db * DAT’ | 
ds 26-C$-FCRB) 
| = voir page 
FIGURE 5 
| Exemple d'utilisation de la fonction 25. 
| 
| KRDOS equ 5 
mv i Fr PS pu 
EX: d FCB 
call BDOS 
ae 5 le resultat est en +23%,274,2%5 du FCR 
FCB: db | 
db *FICHIERI’ 
db ? DAT’ 
ds 36-C$—-FCB) 
| = 


SONDAGE MENSUEL 
CPC n° 24 


Pour nous aider à mieux cerner vos désirs, remplissez le dos de ce bulletin, découpez-le et retournez-le à 


l'adresse suivante : 


È 

À 

à 

ë 

É 

L 

Editions SORACOM ; 
SONDAGE MENSUEL CPC 

La Haie de Pan ÿ 

35170 BRUZ 

ë 

£ 

ê 

Ë 

* 

# 


Inscrivez vos remarques et suggestions ci-dessous : 


Matériel utilisé : 


Ë (faculiatif} Mo Er mr ee or ee een ER Te PES nOIN 2 


ñ Adresse : RER CE ARTE RUE D Van bre 2 AR ER Tee 
— 


mn 


PARTICIPEZ A CPC ! 


Remplissez soigneusement ce coupon et joignez-le à votre programme, sur cassette ou sur disquette. Envoyez le tout à : 


CPC 

La Haïie de Pan 

35170 BRUZ 
Le programmeur : 
Nom : 2 _ 77777 Prénom: 7 ne Age : —_— 
Adresse complète : Re = | EE  — EE —— > 
Le programme : : 
Nom : = : —  — Catégorie : Jeu Utilitaire : } Educatif 
Taille : im. Le. _— Périphériques utilisés : _- = 
Support : a 
Compatibilité (testée) avec : 464 664 6128 PCW 8256 

PC 1512 PCW 8512 


Attestation sur l'honneur 
Je soussigné, _—- : —_ , déclare être l'auteur du programme ci-joint et ne l'avoir jamais proposé 
à une autre revue. 


Le : / / à : 


Signature : 


Notez les articles de ce numéro selon les critères suivants : 


O : ne me concerne pas l:ne m'a pas intéressé 
2 : intérêt moyen 3 : intéressant 
4 : très intéressant 5 : passionnant 


OPINION GLOBALE SUR CE NUMERO : 


CAO sur CPC Initiation à CP/M [] 
Calculons mieux | Trames et collages | 
Mille Bornes Minuscules-Majuscules 

Trucs et astuces Graphofrance 

Tout sur Sound Fonctions en couleurs 

Brancher le Turbo Machines 

Turbo astuce Essais logiciels | 
Justification Essais matériels [] 
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TRAMES 


COLLAGES 


D. VASILJEVIC 


Dans la lignée des routines 
bien connue dans le tricot et 


raphiques, voici une technique 
ans la couture : le PATCHWORK. 


Rassurez-vous, nul besoin d’aiguilles à tricoter, de ciseaux, ni 
de fils à coudre. Votre AMSTRAD fera parfaitement l'affaire. 
En effet, la routine,ou plutôt les routines que nous vous pro- 
posons sont aussi bien connues dans les arts graphiques. 


Nous vous expliquons d'abord le pour- 
quoi de ces routines. L'écran en mode 
2 ne possède que deux couleurs, pa- 
pier et crayon. Pour différencier les sur- 
faces, il ne reste donc qu'un moyen: 
le tramage. Si ce tramage est régulier, 


autant le rendre automatique à partir de 
quelques paramètres simples et évi- 
dents. Pour éviter de rester enfermé 
dans une trame orthogonale, il fallait 
aussi donner la possibilité de copier 
n'importe quel dessin en l'incrustant 


ENCADRE 1 


190 
LES * INEVITABLE CAMEMBERT 
119 MEMORY &1FFF: MODE 2 : 
299 


FROGRAMME DE DEMONSTRATION DES TRAMES ORTHOGONA >ZE< 


LOAD “trames.bin":POKE BB6AS >AC< 


129 WINDOW 1,80, 23,25:0RIGIN 9,0:WINDOW #1,1,80,1,22:r= >BD< 


100:MOVE 419, 199 


130 FOR i=0 TO 2.5xPI STEP P1/20:DRAW 319+C05(i)#r,199+ 2FE< 


SIN(i)*r:NEXT 1 


146 FOR i=i TO 8:MOVE 319,199:a=a+P1/20#i:DRAWR 99*C05( 


A),99*SIN(A):NEXT i 


159 0=0:FO0R i=1 TO 8:0=0+P1/20#i+P1/40 
160 MOVE 319+504C05 (0), 199+50xSIN (0) :READ a,b,c,d,t 
179 POKE &9FEA,a:POKE &9FEB, ARE R9FEL, c:POKE &9FED,d : 


:CALL #A000,t:NEXT i 
180 DATA 1,4,1,6,2 
190 DATA 0,9,0,0,0 
200 DATA 2,2, 2, 2,2 
210 DATA 0,2,2,2,2 
220 DATA 1,1,1,1,2 
230 DATA 4,4,4,4,1 
240 DATA 2,2,0,2,2 
250 DATA 2,4,1,5,1 
260 DATA 2,4,1,5,2 


270 POKE 4B6A3, 255: a$="CAMAMBERUS VULGARIS":TAG#1 : MOVE 


240,350: PRINT#1, a$; : END 
280 END 


>QF< 


?PJ< 


| 


dans un contour irrégulier. Pour cer- 
tains dessins, ces contours sont prati- 
quement indispensables, comme c'est 
le cas des cartes géographiques. Pour 
d'autres, notamment pour les tableaux 
d'artistes, les contours sont plutôt indé- 
sirables car ils donnent l'impression de 
dessin remplis et non de peinture. D'où 
l'idée d'aller encore plus loin, en suppri- 
mant les contours devenus inutiles. 
Voyons maintenant comment. 
L'ensemble des routines est divisé en 
deux parties bien distinctes et d'accès 
séparés. La première partie est compo- 
sée d'une routine multiusage à trois op- 
tions dont une à deux variantes. En 
voici le détail : 

—option 0 : 

routine préliminaire servant principale- 
ment à déterminer les coordonnées de 
tous les points indispensables du con- 
tour de la zone à tramer. Elle peut être 
utilisée en tant que routine "FILL" ab- 
sente sur les CPC et 664. A signaler, 
toutefois, l'existence des  routines 
beaucoup plus rapides. Il est donc dé- 
conseillé d'utiliser l'option O dans le 
seul but de “REMPLIR” d'encre une 
surface de contour quelconque fermé. 
—options 1 et2: 

génération automatique des "TRAMES 
ORTHOGONALES" dans l'emprise dé- 
terminée par l'option O0. Précisons que 
les options 1, 2 et 3 passent automati- 
quement par l'option O. Il ne faut sur- 
tout pas faire des passages succes- 
sifs pour une même emprise. L'option 1 
dessine des traits de couleur “papier” 
sur le fond de couleur “crayon”. L'op- 
tion 2 dessine le contraire : des traits 
de couleur "crayon" sur le fond de cou- 
leur “papier”. En somme, l'option 2 est 
en mode normal et 1 en mode inverse. 
—option 3 : 

incrustation dans le contour (toujours 
déterminé automatiquement par l'option 
0) d'une image relevée sur un écran vir- 
tuel placé à l'adresse $4000 : 
"PATCHWORK". 


La deuxième partie contient une seule 
routine : "POCHAGE". En réalité, on 
pourrait appeler cette routine ‘"efface- 
ment”, car elle gomme les points des 
contours. On obtient ainsi l'impression 
de collage ou de pochage, selon l'op- 
tion utilisée pour le tramage (ou le rem- 
plissage). 

L'option 3 est la plus importante. Elle 
permet non seulement d'utiliser n'im- 
porte quelle trame, mais aussi de réa- 
liser des mixages, incrustations, mé- 
daillons et toutes sortes de collages à 
partir de dessins libres. Mais reprenons 
au début. 
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Avant tout, procédez à la saisie de la 
routine, soit en FER diféur-as- 
sembleur, soit p éthôdé bien con- 
nue des DATAs. Ensuite, après avoir 
sauvegardé la routine binaire sous le 
nom"trames”, (SAVE"TRAMES",b,&A00 

0,&55D), utilisez les deux programmes 
de démonstration des encadrés 1 et 
Leur utilisation est détaillée plus lai 

vous n'obtenez pas les image 
lues, corrigez vos erreurs de saisie" 


FIGURE 1 > ‘ 


La routine peut être utilisée pour n'im- 
porte quel dessin pourvu qu'il soit en 
mode 2 et sans scrolling de l'écran. Il 
faut d'autre part réserver au moins une 
ligne pour le texte en vue du travail en 
mode direct et pour divers messages. 
L'écran graphique doit être limité en 
conséquence, afin d'éviter tout chevau- 
chement avec fenêtre texte. Avant de 
faire l'appel à la routine par CALL 
&A000, OPTION, le curseur graphique 
doit être placé à l'intérieur du contour 
intéressé par MOVE X, Y. Quelle que 
soit l'option demandée la première par- 
tie de la routine identifie les points de 
contour et inverse en même temps la 
couleur de l'emprise. Cette inversion 
est indispensable pour la méthode 
d'identification utilisée. 

Les abscisses des points gauche et 
droit d'une ligne, ainsi que l'ordonnée 
commune, sont rangés dans les tables. 
Le contour doit être absolument fermé. 
Un seul point manquant et tout le des- 
sin peut être perdu | Pour éviter les dé- 
gâts dus à une mauvaise manoeuvre, 
la routine comporte un arrêt d'urgence 
que l'on provoque en appuyant sur la 
touche ESC. 

En cas de l'option O-"REMPLIR", la rou- 
tine s'arrête après l'inversion de cou- 
leur de l'emprise. Dans le cas d'un au- 
tre choix, le paramètre d'option est tes- 
té et le programme continue selon le 
cas. 

Les trames orthogonales sont géné- 
rées automatiquement en fonction de 
quatre paramètres : 

A — Nombre de lignes pleines d'un 

motif 

(épaisseur du trait) 


B — Nombre de lignes vides d'un motif 
(épaisseur du blanc) 

C — Nombre de colonnes pleines 

D - Nombre de colonnes vides. 

Ces paramètres sont demandés unique- 
ment par les options 1 et 2. Pour trans- 
former l'accès à la routine, le nombre 
de paramètres transmis par CALL est 
limité à un seul : le numéro de l'option. 
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Pour cette raison les valeurs (ou les con 
variables) À, B, C et D'qui définissent la si 

e doivent être placées. directement 
par "POKE" avant l'appekdë. la routine. 
Les esses concernées 

l'ordre 1respectif, &9FEA "3% à PES 
89FECeh89FED. La ligne Lu pro 
La derl'encadré tyvousdé 


s que de deux cou- 
oÙ nécessité de 
Me générée est par 
. Si l'on utilise une 
all oiusieurs zones, on 
) bte de cette conti- 
eut être utile. 

là plus intéressante. Elle 
éxplotée de plusieurs ma- 


HE alel 
2. Elk SA 


Bnçons par la plus simple, l'exten- 
de tramage à n'importe quel type 
ag En effet, les trames ortho- 
s régulières ne permettent pas 
eine expression artistique. Les 
désirées doivent être créées au- 
Chaque trame doit occuper 
surface de l'écran et doit être 
adrasse &4000 (début de l'é- 
5 avant l'utilisation. Le con- 
Sertion doit être réalisé com- 
° me md” : édemment et la routine est ap- 
pelée Bar CALL &A000,58. 

La deëxième utilisation est l'incrusta- 
tion en médaillon (comme pour les pho- 
, tos de groupe avec, en médaillon, les 
"portraits des personnages dont on 
parle). 


aula”Ja cobil ÿ 
crayon en fontlianle 
Pour illustre 
mètres À, B, 
tions 1 ou 2,, vèe 
ting de l'encadré! 
tine était correcté 
l'image de l'encadré. 1, 
Les trames générées pauventis 

utiles pour les carte$"ÿéographigues(fins 
gure n° 1) ou tout aitalratoment on 
cessitant la différenci on de plusieurs 


ENCADRE 2 


10 MEMORY &IFFF:MODE 2:POKE 8&B7C6,8&40:FOR i=1 TO 12':LO0 >DB< 

AD"trames.bin"'BRAQUE 

20 PRINT"soracom editions soracom editions soracom"; "AL >TC< 

EATOIRE 

30 PRINT" editions soracom editions soracom edi"; >6D< 
40 PRINT"ons soracon editions soracoa editions sora";  ?BEX 
50 PRINT"com editions soracom editions soracom":NEXT i »YF< 
60 POKE &B7C6,&CO:CALL &BCO6,&CO:WINDOW 1,80,25,25:POKE >J6< 
LB6AS, 255 

70 DIM x(5),y(5),2(5) ° 
doit etre arrete juste 


Le remplissage du fond >PH< 


TRAMES ET COLLAGES 


80 FOR i=1 TO 5 :RANDOMIZE TIME’ avant la fin >CJ< 
90 x=RND (1) #489+100: y=RND (1) +249+100 ?HK< 
190 x(1)=INT(x):y(1)=INT (y) >KB< 
110 r=RND(1)#(649-x):ri=r/(649-x)#(499-v) 2 IF riér TH >UC< 
EN r=ri 
120 r(i)=INT(r)-50#(r€50): MOVE x+r (1), Y >RD* 
130 IF y+r(i)>399 OR y-r(1)<@ THEN 119 3WE< 
140 IF x+r(i)2589 OR x-r(1)<0 THEN 119 WF< 
159 FOR j=0 TO 2.24P1 STEP 0.05:DRAW x+C0S(j)#r (1) ,y+SI >TG< 
NCj)#r (I) :NEXT j:MOVE x,y 
160 a=RND(1)#(599-x) :b=RND(1)#(399-v) : a=INT (a)-50#(a€59 >GH< 
}:b=INT (b)-50* (b<50) 
179 IF x+2#a599 OR i+2#b>399 THEN 160 >WI< 
180 IF x-a<9 OR y-b<à THEN 160 >HK< 
190 DRAW x+a,y+b:DRAW x+a2, y:DRAN x+a,y-b: DRAM x, yNEX >JL< 
T i:FOR i=i T0 5 
200 P=TEST (x(i)-1,y(i)-2):1F p<>0 THEN x(i)=x(1)-1:y(i >QC« 
)=y(i)-2:G60T0 200 
216 READ a,b,c,d,type:POKE &9FEA,a:POKE &9FEB,b:POKE &9 >FD< 
FEC,c:POKE &9FED, d 
220 MOVE x(1i-1,y(i)-1:CALL &A006, type REX 
230 type=(type=2)-(type=i)+type:IF type=0 THEN type =3 >DF< 
244 p=TEST(x(i)+r(1)/2,y(i)+r(i)/4) ?XG< 
250 IF p<>4 THEN x(i)=x(i)+i:y(1)=y(i)+2:G0T0 240 >NH< 
260 MOVE x(ii+r(i)/2,y(i)+r(i}/4:CALL &A009, type: NEXT i >HJ< 
:POKE &B6AS, 255 
270 MOVE 10,19 :CALL &A090,0:POKE &B6AS, 255 >LK< 
286 FOR i= 1 TO 16: CALL &A481,i: NEXT i HAL 
290 DATA 1,6,1,6,2,4,4,4,4,1,0,9,0,0,0,1,4,0,5,2,0,5,1, >PM< 
1,2@ 

JE 

ENCADRE 3 

190 ‘ reperage du contour, ecran virtuel DAE< 
119 POKE &B7C6,k49:CALL &BCO6,&49 >6C< 
120 INPUT"Numero du contour ( 4 a 9)"sn >VD< 
139 a=42200+n*%600 >JEX 
140 IF n>4 THEN a=&8000+ (n-5) #k600 >CF< 
150 b=a+k200: c=att400 >Q6< 
160 xi=PEEK(a)+256*PEEK (a+1) >XH< 
170 y1=PEEK (b)+256*PEEK (b+1) ?BJ< 
180 z1=PEEK (c)+256*PEEK (c+1) >FK< 
190 IF PEEK(a+1)=&FF THEN 250 >DL< 
200 x=PEEK (a) +256#PEEK (a+1) JNC< 
210 y=PEEK (b}+256*#PEEK (b+1) >TDK 
220 z=PEEK (c)+256#PEEK (c+1) )XE< 
230 PLOT x,y,1:PLOT z,y,1 >DF< 
240 a=a+2:b=b+2:c=c+2:60T0 190. LEP 
250 INPUT “appuiez sur RETURN"; a$:MODE 2 >QH< 
260 WINDOW 1,89,23,25 >KJ< 
270 POKE &B7Cb,&CO:CALL &BCO6, &CO >XK< 
280 PRINT "coordonnees du depart “; JUL< 
290 PRINT x1:y13z1:END AM @ 


Il est évident que le dessin à extraire 
de l'écran virtuel doit occuper la même 
place à l'écran que le médaillon. Ceci 
n'est pas toujours possible. 

Il faut donc déplacer le dessin de l'é- 
cran virtuel pour qu'il occupe la place 
voulue. Si vous possédez un scanner 
de la Société DART, le logiciel fourni 
avec cet appareil, le "DARTSCAN" fait 
celà à merveille, sinon créez une petite 
routine ou même un simple programme 
en BASIC, qui bien entendu sera plus 
lent. 


Le principe de l'incrustation dans un 
contour tout à fait quelconque est stric- 
tement le même. 

Pour faire coïncider l'image avec con- 
tour, on procède comme pour le médail- 
lon, mais pour mieux visualiser le dé- 
coupage, on complète la procédure se- 
lon la méthode suivante : 

- l'image à incruster est placée sur 
l'écran virtuel ; 

- l'image à compléter est sur l'écran 
affiché ; ; 

— Utilisez l'option O pour identifier le 
contour ; 

— lancez le petit programme de l'enca- 
dré n° 3 (saisi et sauvegardé aupara- 
vant sous le nom “"CONTOUR") par 
RUN"CONTOUR". 

L'écran virtuel sera affiché, le contour 
apparaîtra sur cet écran et vous pour- 
rez mieux vous rendre compte de l'ef- 
fet. S'il vous satisfait, modifiez comme 
pour le médaillon la position de l'image 
à insérer, lancez la suite de la routine. 
Dans le cas contraire, recommencez. 
La suite de la routine se lance par 
CALL&A553. 

La routine facultative concerne les 
"POCHAGES". Au fur et à mesure des 
remplissages ou collages, la routine 
sauvegarde automatiquement les ta- 
bles de coordonnées des contours. 
Toutes les tables sont dimensionnées 
pour 512 octets (512 points). Dans les 
cas courants, ceci est suffisant. Si 
vous devez traiter un contour très im- 
portant, vous devrez modifier la routine 
en conséquence ; les tables des con- 
tours sont sauvegardées par paquets 
de trois blocs de 512 octets (trois coor- 
données pour 2 points) à partir de 
l'adresse &2200. On peut réaliser dix 
contours d'affilée, après quoi la routine 
remet le compteur à zéro. A partir de ce 
moment, vous perdrez un à un les an- 
ciens contours au profit des nouveaux. 
Un BIP vous avertit de la fin d'un 
contour. Les contours sont numérotés 
de 0 à 9, le 9 étant le dernier réalisé et 
le 0 le premier. 
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COMPARAISON 
DES DESSINS 
AVEC ET SANS 
EFFET DE 
POCHAGE 


Les pochages sont réalisés de façon 
sélective en donnant le numéro de 
contour que l'on désire effacer: 
CALL&A481, n°. Ne jamais effacer un 
contour avant que toutes les surfaces 
adjacentes extérieures au contour 
aient déjà été trouvées (ou incrustées). 
La délimitation des emprises étant per- 
due après l'effacement du contour, tou- 
te tentative de traçage d'une zone adja- 
cente provoquera un beau gachis|! 
Les pochages n'agissent pas sur les 
parties horizontales des contours. 
L'encadré 2 contient un exemple de 
Patchwork et le listing du programme 
en BASIC correspondant. Ils vous per- 
mettront de tester l'exactitude de la 
saisie. 

La routine est faite pour CPC 6128. Les 

adresses à modifier pour CPC 464 sont ENCADRE 4 
données dans le commentaire du lis- 
ting. 

Derniers conseils : si à la place de l'é- 
cran complet, vous utilisez des fenê- 
tres graphiques, veillez à border cette 
fenêtre d'un cadre. 

utiliser les contours “ouverts” et évite- 
rez les blocages. Si vous avez interrom- 
pu la routine lors de son passage par 
l'option O (identification du contour), 
n'essayez pas d'effacer ce contour, 
vous risqueriez la panne complète. Si 
vous utilisez le programme "BRAQUE" 
et que l'attente du dessin se prolonge 
de trop, n'hésitez pas à appuyer deux ET EBRET F + L us 
fois sur ESC et à relancer le program- LÉ PPNEST . de 

me. Vous ne réussirez certainement Had 

pas un dessin du premier coup à cause UE : 

des paramètres aléatoires. Evitez les SU 
paramètres 1, 1, 1,1. FR et du texte dans le nedaillon 

NB : Pour les 464, il faut remplacer les ; 

adresses suivantes (dans TOUS LES 
PROGRAMMES) : À 
&B6A3 par &B338 : “ 

&B6A4 par &B339 , ENCADRE 5 
&B7C6 par &B1CB 


64 


TRAMES ET COLLAGES 
LISTING DATA 


19 A=LAGOO:F=LASSD: L=1OG: HHILE AË=F:FOR A=A TO A+I5:READ C$:k 
SVAL ("RU 4CS) :S=S+K+65536#(S+K:32767): IF ACZF THEN POKE AK 
26 NEXT:READ D$:T=VAL("R"+D$):IF T<?S THEN PRINT CHR$(7):;"Err 
eur ligne";L:END ELSE L=L+5:WEND 
25 ‘les possesseurs de 464 doivent supprimer l'instruction 
REM des lignes 36,49 et SEULEMENT L'INSTRUCTION REM 
36 REM POKE &A923,838:POKE &AG24,8B3:POKE RAU2E,82C:POKE &AG2 
C,SB3:POKE SAD2E,2E:FOKE &AO2F,&B3:POKE MAODD, &38:FOKE BAGDE 
,%B3:FOKE RADE4,U3B:FÔKE RADES, REZ: POKE LAGER,438:POFE RAGE, 
BBS:POKE LA261,438:FOKE RA262,8B3:POKE SAZSD, LIB:FOKE BASSE, & 
B: 
40 REM POKE BA365,438:FOKE BAZ66,BB3:FOKE LA417,RCB:FOKE &A41 
B,%B1:POKE LA426,%3B:POKE 4A427,8B3:POKE BA42B, BCB:POKE &A42C 
5#B1:POKE UA4AG,LIB:POKE BA4A7,&B3:POKE RASZC,&I38:FOKE ZAS2D, 
BBS:POKE 4A557,838:POKE RASSB, &B3 
160 DATA 66,F5,E5,DD,7E,00,FE,04,FA,21,A0,21,D6,9F,06,0F,0797 
195 DATA 7E,CD,5A,BB,23,05,C2, 19, A9, CD, 06, BB, D6, 30,03, 06,0EEE 
119 DATA A6,ED,4B,A3,B6,05,32,FB,9F,ED,5B,97, B6,2A, 99, B6, 18BE 
115 DATA ED,53,E1,9F,ED,53,E5,9F,22,E3,9F,22,E7,9F,CD,F6,234B 
126 DATA BB,3D,32,E0,9F,3A,F0,9F,FE,00,CA,952,Aû,FE, OA, FA, 2079 
125 DATA 5D,A09,3E,0A,.352,F0,9F,21,00,22,22,F1,9F,3E,00,32,31E4 
30 DATA E9,9F,32,F9,9F,32,FA,9F,ED,5B,E5,9F,2A,E7,9F,CD, 3C4A 
135 DATA F6,BB,3D,2F,21,E0,9F,BE,CA,A1,A6,2A,E5,9F,2B, 22,44C5 
149 DATA E5,9F,3E,009,BC,C2,68,46,BD,CA,A1,A0,C3,68,A0,C1,4E6i 
145 DATA C3,59,A2,06,0F,CD,69,BB,FE,FC,28,F3,05,F2,95, 60,5766 
154 DATA C9,2A,E5,9F,23,22,E5,9F,3E,00,32,F8,9F,32,F7,9F,5F15 
155 DATA 91,00,98,11,00,9A,2A,F9,9F,37,3F,ED, 4A,ED,4B,E5,65E5 
160 DATA 9F,71,23,70,2A,F9,9F,37,3F,ED, 5A,ED, 4B,E7,9F,71,6E36 
165 DATA 23,70,CD,93,A0,ED,5B,E5,9F,2A,E7,9F,3A,A3,B6,F5,77CD 
179 DATA 3A,E0,9F,32,A3,B6,CD,EA,BB,F1,32,A3,B6,2A,E7,9F,B1AF 
175 DATA 3E,41,BC,C2,FC, 9, 3E,8E, BD,CA,59,A1,2A,E7,9F,23,8A28 
188 DATA 23,ED,5B,E5,9F,CD,F6, BB, 3D,2F,21,E0,9F,BE,CA,53,9376 
185 DATA A1,21,F8,9F,3E,01,BE,CA,99,A1,77,61,40,20,11,00,9959 
199 DATA 21,21,E9,9F,6E,26,00,37,3F,ED, 6A,ED, 4A,ED, 4B,E5, AOBB 
195 DATA 9F,71,23,70,ED, 4B,E7,9F,03,09,21,E9,9F,6E,26,096,A75C 
200 DATA 37,3F,ED, 6A,ED, 5A, 71,25, 76,3A,E9 ,9F,30,32,E9, 9F,AF2C 
295 DATA C3,59, A1,3E,96,21,F8,9F,77,2A,E7,9F,3E, 00, BC, 25,B620 
216 DATA d6,3E,00, BD,CA, C4, A1, 2A,E7,9F 28, 28,ED,5B,E5,9F , BE22 
215 DATA CD,F6,BB,3D,2F,21,E0,9F,BE,CA,BE,41,21,F7,9F,3E,C782 
226 DATA 01,BE,CA,C4,A1,77,01,00,29,11,00,21,21,E9,9F,6E,CD51 
225 DATA 26,09,37,3F,ED, 6, ED, 4A,ED, 4B,E5,9F,71,23,76,ED,D528 
230 DATA 4B,E7,9F,0B,0B,21,E9,9F,6E,26,00,37,3F,ED, 6A, ED, DC96 
235 DATA 5A, 71,23,70, 3A,69,9F,3C,32,E9,9F,C3,C4,A1,3E,00,E 382 
240 DATA 21,F7,9F,77,2A,E5,9F,23,22,E5,9F,3E,02,BC, 20,06, EA49 
245 DATA 3E,7F,BD,CA,EC, A1,ED,5B,E5,9F,2A,E7,9F,CD,F0,BB,F5E 
250 DATA 3D,2F,21,E0,9F,BE,CA,EC,A1,C3,D2, A6, 2A,E5,9F,22,FE54 
255 DATA E5,9F,91,09,9C,2A,F9,9F,37,3F,ED, 4A,ED,4B,E5,9F,668û 
260 DATA 71,23,70,24,F9,9F,23,23,22,F9,9F,3A,E9,9F,FE, 00, 0E06 
265 DATA CA,64,A2,3D,32,E9,9F,21,E9,9F,6E,26,00,01,00,29,142B 
270 DATA 11,00,21,37,3F,ED,6A,ED, 4A,4E,23,46,ED,43,E5,9F, 1ACC 


275 DATA 21,69,9F,6E, 26, 00, 37, 3F, ED, 6A, ED, 5A, 5€, 23, 56, ED, 21E1 
DATA 53,E7,9F,ED,5B,E5,9F, 2,E7,9F,CD, FO, BB, 3D, 2F, 21, 2B3B 
DATA E0,9F,BE,CA,EC, A1, C3, 68, A0,CD, 73, A4,C1,E1,F1,ED, 36FE 
DATA 43,A3,B6,C9,11,00,98, 2A,F9,9F,37,3F,ED,5A, 36,FF, 3EC0 
DATA 23,36,FF,CD, AC, A3, 3A,FB,9F,FE, 00, CA, 59, A2,FE, 03, 47CC 
DATA FA,86,A2,C3,E6,A,FE, 01, CA, 98, A2, SA,E0,9F,22,5B, 5183 
DATA A3,2F,32,63,A3,C3, A2, A2, 3A,E0,9F, 32,63, A3, 2F, 32, 58E6 
p DATA SB,AS, SA,EA,9F,21,EB,9F,37,3F,8E, 32,EE,9F, ZA, EC, 613B 
DATA 9F,21,ED,9F,37,3F,8E, 32,EF,9F, CD, C, A2, C3, C9, A2, 6AAB 
320 DATA 3E,00,32,F9,9F,32,FA,9F, C9, CD, 93, A0, 01,00, 98, 11,71EE 
325 DATA 69,94, 24,F9,9F, 37,3F, ED, 4A,4E, 23, 46,ED,43,E1,9F,795E 
326 DATA 3E,FF,BB,CA,59, A2, 2A,F9,9F,37,3F, ED, SA,4E, 23, 46, B14E 
335 DATA ED,43,E3,9F,2A,E1,9F, 06,00, SA,EF,9F,4F,3E, 09, BC, C1 
DATA C2,14,A3,CB, 7D,FA, 14,83, ZASEF,9F, 57,70, BA, CA, 1B, 916E 
DATA A3, FA, 1B, A3, 37, 3F,ED, 42,C3,FD, A2, 3A,EC, 9F, 57, 7D, 9469 
p DATA BA,CA,62,A3,FA, 62, A3, 2A,E3,9F, db, 00, A,EE, 9F, 4F, A2E9 
DATA 2€, 00, BC, C2,47, A3, CB, 7D,FA, 47, A3, JASEE, 9F, 57, 70, AB26 
DATA BA,CA,4E, AS, FA, 4E, A3, 37, 3F, ED, 42, C3, 30, AS, SA,EA, B3ES 
365 DATA 9F,57,7D,BA,CA,62,A3,FA, 62, A3, 3€, 00, 32, A3, Bb, C3, BC6C 
DATA 67,A3,3E,00,32, A3, B6, ED, 5B,E1,9F,2A,E3,9F,F5, CD, C575 
DATA EA, BB,F1,2A,E1,9F, 23, 22,E1,9F,01,00 "QC, 24, F9,9F,CDD9 
DATA 37,3F,ED, 4A,4E, 23,46, 3A,E2,9F, BB, C2,F4, A2, SA,E1, D623 
DATA 9F,B9,C2,F4,A2, 2A,F9,9F, 23,23, 22,F9,9F,3E,FF, BD, DFBF 
p DATA C2,C9,A2,3E,01,BC,C2,C9,A2,C3,59, A2, 3A,F0,9F, 3D,EBAB 
DATA 32,F0,9F,ED,5B,F1,9F,21,00,98,01,00, 06, ED, Bb, 2A,EFCE 
DATA F1,9F,CD,C9,AS, 22,F1,9F,09, 3, F0, 9F,FE, 00, CA, ES, FABZ 
S DATA A3,01,00,06,37,3F,ED, 4A,3E, 40, BC, C2,E5, 3,01, 09, 095E 
DATA 46, 37,3F ED, 4A,C9,CD, CG, 2, CD, 93,0, 01,00, 98, 11, 07ED 
3 DATA 00,98, 2A,F9,9F,37,3F,ED, 4,4€,23,46,ED,43,E1,9F,0FSD 
à DATA E,FF,BB, CA, 59, A2, 2A,F9,9F,37,3F,ED, 5A,4E, 23, 46, 174D 
DATA ED,43,E3,9F,3E, 40, 32, C6, 87,ED, 5B,E1,9F, 2A,E3,9F, 200 
DATA CD,F0,BB, 3D, 2F, 32, A3, B6, 3E, CO, 32, Cb, B7, CD, 08, BC, 294D 
25 DATA ED,5B,E1,9F,2A,E3,9F, CD, EA, BB, 2A,E1,9F, 23,22, E1,3303 
DATA 9F,01,00,9C, 2A,F9,9F,37,3F,ED, 4A, 4E, 23, 46, SA, E2, 3981 
DATA 9F,B8,C2,14,A4,3A,E1,9F,B9,C2, 14,A4,2A,F9,9F, 23, 4224 
p DATA 23,22,F9,9F,3E,FF, BD, C2,E9, A3, 3,01, BC,C2,E9, A3, 4892 
DATA C3,A9,43,F5,E5, 3€, 07, CD, 7E, A4,87,E1,F1,C9,CF, 00, 55D0 
à DATA 94,F5,E5, DD, 7E, 00,FE,OB, FA, A1, A4, 21,D0,9F, 06, 0F, SEBb 
DATA 7E,CD, SA, BB, 23,05, C2, 96, A4, CD, 06, BB, Dé, 30, C3, 84, 66DF 
DATA A4,32,F0,9F,ED, 4B, A3, B6, C5, 21,00, 22,FE, 01, CA, BE, 6Fb4 
DATA A4,CD,C9, A3, 3A,F0,9F,3D, 32,F0,9F,C3, AC, A4, 22,F1,792E 
DATA 9F,11,00,98,01,00,06,ED, BQ,CD, CO, A2,01,00,98,11,7EF3 
3 DATA 00,98, 2A,F9,9F,37,3F, ED, 4A,4E, 23,46, 0B, ED, 43,E1,85CF 
DATA 9F,3E,FF,B8,CA, A9, AS, 2A,F9,9F, 37, 3F,ED, SA, dE, 23, 8E69 
DATA 46,ED,43,E3,9F, CD, 24,5, 2A,F9,9F,01,00, 90, 37, 3F,95CC 
DATA ED, 4A,4€,23,46,03,ED, 43,E1,9F,CD, 20,5, 2,F9,9F, QDCE 
DATA 23,23,22,F9,9F,3E,FF, BD, C2, CC, A4, 3,61, BC, C2, CC, A6B3 
DATA A4,C3,A9, A3, CD, 4B, A5, CD, F6, BB, 3D, 32, AS, Bé, CD, 4B, B04B 
515 DATA A5, CD,EA, BB,ED, 5B,E1,9F, 13, CD, 4€, A5, CD, EA, BE, ED, BESC 
520 DATA 5B,E1,9F,1B,CD,4E, A5, CD,EA, BE, C9, ED,5B,E1,9F, 2A,C53F 
525 DATA E3,9F,09,F5,E5,ED, 4B, A3, B6,C5,C3,E6, A3, 00, 00, 00, CF06@ 


495 
990 
905 
519 


= 


65 


FADSE 


uuui 
uuu: 
Quu 
uuua 
aan 
duué 
uuu7 
U0Q3 
ouus 
uuia 


où 

an 4 
QUES 
006 
Ua:7 
ou:8 
Qa:9 
ua4ù 
ouai 
ER 
Ua: 
oû44 
üu4, 
nn46 
üu47 
ou48 
Qu4s 
0ao 
aus 1 


aaui 


EEUS 
H697 
E699 
BRQS 
BESA 
RECO 
BEF U 
BBEA 
RéAT 
EBbñ4 
E7Cé 
2000 
z10û 
9300 
sA0û 
9C00 
9FEU 
9FE1 
9FEZ 
9FES 
9FE7 
9FE9 
9FEA 
9FEE 
9FEC 
9FED 
9FÉE 
9FEF 
9FFU 
9FF1 
9FFS 


QU FF 
QUE 9F 


ans 
AUS 
0056 
üQ'./ 
008 
UE 
unsn 
AUS 
QUE: 


Avui 
AgU 1 
AU: 
AQU: 
AbQe, 
4008 


TRAÏES 


5245444 
:046574F 
40205754 
41525420 


F5 

ES 
DL'EUG 
FEU4 
FH:1A0 


STRING 


CLAVIER: 
CURX: 
CURY: 
RECA: 
PRINT: 
MOVE : 
TEST: 
FLOT: 
CRAYON 
PAPIER: 
ECRAN: 
TABX: 
TABY: 
CONX: 
CONY: 
CONZ: 
Fi 

XT: 

YT: 

X1: 

Yi: 
NOMBRE : 
AT: 

ET: 

CT: 

DT: 

ET 

FT: 
COMFT: 
FOINTX: 
FOINTY: 
POINTZ: 
HAS: 
HAUT : 
LIGNE : 
TYFE: 
FEDU: 


CHOI*: 


FYRADEV 


FATCHWORE 


TITLE FATCHWORK 
FRINTR D72,W96 
LIST 


ollages par D. Vasilievic * Version AMSTRAD CFC avril 1987 (c) 


ORG 3FDA@H s0riqine du message STRING, debut d assemblage 
DRXON 


DE “"REDO FROM START " Definition du message STRING 


DBXOFF 


2+ 


DEFS 33 
CONSTANTES 


EGU #BBQ9 
EOU #B6977 
EOU #H699 
EU #BB06 
EQU #BBSA 
EQU K#BECO 
EOU #BBFQ 
EQU #BBREA 
EOU #B6AT 
EUU #B6A4 
EOU #R7C6 
EQU #:000 
EQU #2100 
EQU #9800 
EOU #9A00 
EOU #9C00 
EOU #9FEQ 
EQU #9FEI 
EOU #9FEZ 
EQU #9FES 
EQU #9FE7 
EQU #9FE9 
EGU #9FEA 
EQU #9FEE 
EQU #9FEC 
EQOU #9FED 
EQU #9FEE 
EQU #9FEF 
EQU #9FFQ 
EOU #9FF1 
EUU #9FFZ 
EQU #9FFS 
EQU H#9FF7 
EUU #9FF8 
EOU #9FF9 
EOU #9FFE 
EGU #9FDU 


sTeste s1 un caractere est frappe 
:Coordonnee absolue X courante. 
:Coordonnee absolue YŸ courante 
Attente d'un caractere en provenance du clavier 
:Sortie d'un caractere sur l'ecran texte 
:Deplacement absolu de la position courante graph. 


Affiche un point aux coordonnees absolues 
Encre du crayon graphique. 


:Poids fort du debut de l'ecran. 
:Table des coordonnees X des points d'inflexion 
:Table des coordonnees YŸ des points d'inflexion 
iTable des * des inflexions à gauche d'une ligne 
:Table des Ÿ des lignes comportant une inflexion 
slable des X des inflexions à droite d'une ligne 
Couleur Crayon/Fapier 

; Sauvegarde de CURX 

Sauvegarde de CURY 

:Variable de travail CURX 

Variable de travail CURY 

:Compteur des points d'inflexion 

Crayon sens X } 
;Fapier sens X H 
sCrayon sens Y } 
;Fapier sens Ÿ j 
Hauteur du motif : 
Largeur du motif : 
:Compteur de nombre emprises 

sFointeur de la zone CONX - effectif 

sFointeur de la zone CONY - pour information 
sFointeur de la zone CONZ - pour information 

: Temoin de 1 etat "BAS" du point considere 

; Temoin de 1 etat “HAUT" du point considere 

Inde: table Y (lignes) 

;30ption choisie 

sEmplacement du message REDO FROM START (param. 3) 


ï 
R 
A 
M 
E 
sS 
d 


FROGRAME FRINCIFAL 


ORG # 

FUSH AF 
FUSH HL 

LD A,(I1X+0) 
CF 4 

JF M,ENTREE 


sNouveau depart d'assemblage (routine) 


;Fecueil du parametre d'option choisie 
: Verification de sa validite (parametre 4 ) 
En cas de validite, l'acces à 13 routine 


Reserver 23 octets entre le message et la routine 


Four CFC 464 #B:2 
Four CPC 464 #B32E 


sTeste la couleur d'un point de coordonnees absolues 


Four CPC 464 #B3:8 
Encre du papier graphique.(p.m.) Four CFC 464 #B379 
Four CPC 464 #BICE 


2 IEOA 


TRÂMES 


21D09F 

Q60F 

TE SORTIE: 
CDSABR 


05 
C21040 
CDU6BE 
D6:0 
C:064ù 


ED4BASBS ENTREE: 


5 C5 


32FB9F 
EDSES /B6 
2499E6 
ED53E19F 
EDS3ES59F 
22E39F 
22E79F 
CDFOEE 
TD 
32E09F 
TAF Q9F 
FEQU 
CAS2A0 
FEUA 
FASDAQ 
MARCHE : 
T22F09F 
210022 
22F19F 
2E00 
32E99F 
32F99F 
32FA9F 
EDSBES9F 
24E79F 
CDFOBE 
3D 

2F 
21E09F 
BE 
CAA1AB 
2AE59F 
2E 
22E59F 
3E00 

BC 
C258À0 
ED 
CAA1AQ 
C768A0 
C1 
C1:5942 
Q40F 
CDO9EE 
FEFC 
28F3 

a 
F29540 
C9 
2AE59F 


22E59F 
3F00 


ZERO: 


DESSIN: 


FYRADEV 


LD HL,FREDO 
LD B,#0F 

LD A, (HL) 
CALL FRINT 
INC HL 

DEC E 

JF NZ,SORTIE 
CALL RECA 
SUE 48 

JF CHOIX 

LD EC, (CRAYON) 
FUSH EC 

LD (TYPE) ,A 
LD DE, (CURX) 
LD HL,(CUR*) 
LD (xT) ,DE 
LD (X1) ,DE 
LD €YT) ,HL 
LD (Y1) ,HL 
CALL TEST 
DEC A 

LD (F),A 

LD A, (COMPT) 
CF #00 

JF Z, MARCHE 
CF #0 

JF M,HOF 

LD A,#0A 

LD (COMFT) ,À 
LD HL,#2700 
LD (FOINTX) ,HL 
LD A,#00 

LD (NOMBRE) .A 
LD (LIGNE) ,A 
LD (LIGNE+1) ,A 
LD DE,(X1) 
LD HL,(Y1) 
CALL TEST 
DEC À 

CFL 

LD HL,F 

CF (HL) 

JF Z,DESSIN 
LD HL,(X1) 
DEC HL 

LD (X1)HL 
LD 4,400 

CF H 

JF NZ,ZERO 
CF L 

JP Z,DESSIN 
JF ZERO 

FOF RC 

JP FIN? 

LD E,#OF 
CALL CLAVIER 
CF HFC 

JR Z,REL 

DEC E 

JF P,STOP+2 
RET 

LD HL,:x1) 
INC HL 

LD (X19 ,HL 
LD 4,400 


FATCHYORE 


:Farametre errone, charger le pointeur 
t le nombre de caracteres du message 


harger le caractere en cours et faire appel de La 


sroutine d'affichage d'un caractere a l'ecran 
sIncrementer le pointeur 

:Decrementer le compteur 

sFecommencer jusqu'au dernier caractere 

Appeler la routine de saisie d'un caractere 
:Decoder le parametre en otant 48 (ASCII de G: 
Retourner à la verification de validite. 
:Sauvegardons d'abord la couleur actuelle du 
scrayon et du papier. 

sSauvaarde de 1 option 

Lecture de l'abscisse du curseur graphique 
ilLecture de l'ordonnee du curseur graphique 
Sauvegarde de l abscisse dans le registre courant 
set dans celui de travail 

: Sauvegarde de 1 ordonneë dans le registre cour ant 
set dans celui de travail 

sAppel de la routine TEST donnant la couleur 
point considere et inversion : Sl: A=1 alor 
Sauvegarde de la couleur inversee AsÜ alo 

lire le compteur et verifier sa valeur 


4S1 il contient #00, 11 ne tourne pas et 11 faut le 


imettre en marche. 


Dans le cas où 1l ne contient pas #QA il tourne et 


son peut sauter sa mise mise en marche 

Dans le cas contraire on le met en route en Liu 
sdonnant la valeur du test qui sera decrementee 
Etablissement des pointeurs des zones des 
scoordannes Xg,Y et Xd des emprises successives. 


sinitialisation a zero du nombre d'inflexions 
set de l'index de lignes 


Charge les registres interesses par les valeurs 
sde l'abscisse et de 1 ordonnee du point en cours 
set fait appel a la routine TEST 

ile resultat de test et decode: Gi: A=1 alors 


2755 
=299 


ï A=Q alors F=000 


;: Comparaison de cette couleur avec la couleur de 
sreference. En cas d egalite ce point fait partie 
sdu contour et on passe au dessin. 

:Decremente ] ‘abscisse du point en cours à la 
recherche d'un point du contour où d'un point du 
:du bord gauche de l'ecran. 61 1 abscisse du point 
sen cours a atteint zero, ce point est situe 5 
ile bord gauche de l'ecran (on peut dire que 
scontour est ouvert a gauche) et on passe au 


Sinon on recommence les tests pour le noue 

: Supprime un retour de sous-routine 

sRelais FIN 

Inde: de la boucle de 186 tourz pour le 
sclavier. En cas d'urgence on peut sortir 
sroutine en appuyant sur la touche ESCAFE 

:S1 touche ESCAFE frappee deplacement sur 
;:Decrementation de 1 index pour le 1 

Teste fin de boucle (inde: Ü) et reboucle ou, © 
sc est la fin, 
sIncrementation de 1 abscisse, le point en course 
deplace à droite. 


retourne à la routine principale, 


Les temoins d'elat d'inf'exion vers le haut et 


ze 


TRAMES FYRADEV  FAICHWORH "AGE 0004 TRAMES FYRADEV  FATCHWOR 


LD (HAUT) ,A svers le bas de la ligne courante sont mis tous les : A1:4 EDA4BE79F LD BC,(v1) 
LD (BAS) ,A sdeux à zero. A1:8 OZ INC BC 
010098 LD BC,CONX ;Les coordonnees X1 et Y1 du point du contour qui A139 3 INC BC 

: 1100974 LD DE,CONY svient d'etre identifie doivent etre conservees pour 76 A1TA 21E99F LD HL,NOMBRE 
2AF99F LD HL,(LIGNE) ;l'option no 3. Apres le calcul de leur positions A1SD 6E LD L, (HL) 
37 SCF 2600 LD H,#00 
3F CCF sApres le calcul de leurs positions respectives 37 SCF 
ED4A ADC HL,BC sdans les zones de stockage, ces valeurs sont 3F * CCF 
ED4BES9F LD BC,(x1) :sauvegar dees: e ED6A ADC HL,HL 
71 LD (HL),C È 4 EDSA ADC HL,DE 
23 INC HU X1 a 1 adresse CONX + valeur de LIGNE 07 71 LD (HD) ,C 

: 70 LD (HL),E à 23 INC HL se TAB £ valeur de NOMBRE 
2AF99F LD HL, (LIGNE) 205 À 70 LD (CHL),E 
37 SCF + 3AE99F LD A,(NOMERE) ; Incremente NÜMERE 
3F CCF 2 3C INÇ À 
EDSA ADC HL,DE “08 À 32E99F LD (NOMBRE) ,A 
ED4RE79F LD BC, (Yi) C359A1 JF DESSOUS ;Va tester le point du d 
71 LD (HL),C : 3E0Q LD À,#00 sMet le temoin HAUT à © (UFF), pour signaler que 
23 INC HL : Yi a 1 adresse CONY + valeur de LIGNE 21F89F LD HL,HAUT ile point d'anflexion n a pas ete trouve sur la 
70 LD (HL),E ? LD (HL),A ligne superieure à la ligne cour ante. 

? CD7:A0 CSTOF: CALL STOF :C'est le moment de scruter le clavier pour ESC! 4 F A DESSOUS: LD HL,(Y1) :3S1 l'ordonnee de travail n'est pas egale à O0, le 
EDSEES9F  INVERSE: LD DE,(X1) ;Charge les coordonnees du point a inverser C 3E LD A,#00 spoint en cours n'est pas situe eur la premiere 
2AE79F LD HL,(Y1) CF H igne inferieure de | ecran. Ün peut, donc, 
TAAGBS LD A,(CRAYON) ;Freserve sur la pile la valeur du GRAFHICS FEN 2 JR NZ,SIX* hercher le point d'inflerion au dessous sur la 
F5 FUSH ÀF d'origine. u A 3 LD A,#00 igne precedente, S1 1 ordonnee de travail est 
TAEUSI LD A,(F) ;Charge la couleur inversee du GRAFHICS FEN dans 2 ; CP L gale à @, il n-ÿy-a pas de ligne au-dessous 
T243B6 LD (CRAYON) ,A ;1la variable systeme 217 À JF Z,SUIT iles tests sont termines 
CDFABE CALL FLOT sAffiche le point en cours dans la couleur inversee 2 2AE79F S1* LD HL, (1) sTest du point situe au-dessous du point en cours: 
Fi FOF AF ;Fecupere 1a valeur du GRAFHICS FEN d'origine et A 2E DEC HL :L'ordonnee decrementee 
T2A3E6 LD (CRAYON) ,A sretablit la variable systeme 2B DEC HL 
24E7SF LD HL,ivi) 351 l'ordonnee de travail n'est pas egale 4 7:88, le d 80 EDSBES9F LD DE,(X1) ;l'abscisse inchangee chargee 
TEQ1 LD A,#01 spoint en cours n'est pas situe sur la derniere ° 70 CDFOEE CALL TEST set le point teste. 

BC CF H ligne superieure de l'ecran. On peut, donc, À TD DEC À sLa couleur du point est comparee &vec la couleur 

3 C2FCAU JF NZ,DESSUS chercher le point d'inflexion au dessus sur la 2F CPL sinverse memor1isee. 

TE8E LD A,#8E sligne suivante. Si l'ordonnee de travail est 75 21E09F LD HL,F 
BD CF L segale à 388, 11 ny a pas de ligne au-dessus, 28 À178 BE CF (HL) 
CAS9AI JF Z,DESSOUS 311 faut tester le point du dessous! CABEAI JF 2Z,FAUE Ce n'est pas un point d'inflerion! Va annuler 
24E79F LD HL,(Y1) ki 21F79F LD HL,BAS 3C est un point d'inflexion! 

INC HL {Test du point situe au-dessus du point en cours: d TEQi LD A,#01i ile temoin BAS est 11 deja mis à 1 (ON)? 

INC HL ;L' ordonnee à un pas de deu: ! : BE CF (CHL) 351 où, l'inflerion a deja ele trouvee et 
EDSBES9F LD DE,(X1) :1'abscisse inchangee chargee 53 CAC4RI JF Z,SUIT sdans ce cas les verifications sont termineës 
CDFOBE CALL TEST set le point teste. ; 77 LD (HL)i,A 3Sinon, met le temoin HAUT à 1 pour le signaler 
TD DEC A La couleur du point est comparee avec la couleur a10020 LD BC,TABX iles coordonness *1 et 1 du point d'infle/ion qui 
2F CPL inverse memorisee. 110821 LD DE,TAEY svient d'etre identifie diivent etre conserveez pour 

à 71EU9F LD HL,F Ai8C 21E99F LD HL,NOMBRE la suite. Apres le calcul de leur positions 
BE CF  (HL) ‘8 À 6E LD L,(HL) 

CASTAI JF Z,FAUH ;Ce n'est pas un point d'inflexion! Va annuler HAUT à .2600 LD H,#00 
21F89F LD HL,HAUT 3C'est un point d'inflexion! 72.37 SCF 
3EOi LD A,#01 Le temoin HAUT est 11 deja ms à i (ON) 7  2F CCF 
BE CF (HL) 3Si oui, l'inflexion a deja ete trouvee et : EDéA ADC HL,HL sâpres le 
CAS9AI JF 2,DESSOUS sdans ce cas verifie le point du dessous! 47 À ED44 ADC HL,EC idans les 
77 LD (HL),A Sinon, met le temoin HAUT à 1 pour le signaler! 2 : ED4BE59F LD EC,({X1) :Sauvegar d 
210020 LD BC,TAEX :Les coordonnees Xi et Y1 du point d'infle-ion qui : 70 7 LD (CHL),C 
110021 LD DE,TAEY svient d'etre identifie doivent etre conservees pour 2 J INC HL É] à adresse TéE: 2 calin de NIMERE 
21E99F LD HL,NOMERE la suite. Les tables commencant a l'adresse ?27000, ‘47 A1: LD ‘HL),E 

LD L,(HL) ;la memoire BASIC doit etre obligatoirement protegee À ED4EE 79F LD EC,(YI 

LD H,#00 savant toute utilisation de la routiune. 7 AT QE DEC BC 

SCF QE DEC EC 

CCF 22 AS 21E99F LD HL,NOMERE 

ADC HL,HL :Les coordonnees etant des valeurs sur deu: octets, f 6E LD L, (HD) 

ADC HL,EBC ;la valeur de NOMBRE est doublee. 23 A7 600 LD H,#00 
ED4BES9F LD BC,(X1) sApres le calcul ge leurs positions respectives à SCF 
71 LD (CHL),C sdans les tables de stockage, cez valeurs sont 235 À CCF 
23 INC HL ;sauvegardees: A1 ADC HL,HL 
70 LD (HL),E ï X1 a l adresse TABX + 2 * valeur de NOMBRE ADC HL,DE 


& 
S 


HT LONGER 


TRAMES 


71 


9% 


70 
3AE99F 
SC 
32E99F 
C3C4Aî 
3E00 
21F79F 
77 
2AE59F 


22E59F 
3E02 
BC 
2006 
SE7F 
ED 


: CAECAI 


EDSBES9F 
2AE79F 
CDFOEE 
3D 

2F 
21E09F 
BE 
CAECAI 
C3D2A0 
2AE59F 
22E59F 


ALORS : 


2 @1@09C 


20F99F 
37 

3F 

ED4A 
EDABES9F 
71 


+ 
23 


70 


: 2AF99F 


9% 
25 


2+ 


22F99F 
3AË99F 


- FEU0 


CA64A? 


, TD 


32E99F 
21E99F 
6E 
2600 
010070 
110021 
37 


ED43E59F 
21E99F 
6E 

2600 

37 


FYRADEV 


LD (HL),C 

INC HL 

LD (HL),E 

LD À, (NOMERE) 
INC À 

LD (NOMBRE) ,A 
JF SUIT 

LD A,#00 

LD HL,BAS 

LD (HL),A 

LD HL,(X1) 
INC HL 

LD (X1) ,HL 
LD A,#02 

CF H 

JR NZ ,ALORS 
LD A,#7F 

CP L 

JF Z,INFL 

LD DE, (X1) 

LD HL, (Y1) 
CALL TEST 
DEC A 

CPL 

LD HL,F 

CF (HL) 

JF Z,INFL 

JF CSTOF 

LD HL,(X1) 

LD (X1) ,HL 
LD EC,CONZ 
LD HL, (LIGNE) 
SCF 

CCF 

ADC HL,BC 

LD BC, (X1) 

LD (HL),C 

INC HL 

LD (HL),B 

LD HL, (LIGNE) 
INC HL 

INC HL 

LD (LIGNE) ,HL 
LD A, (NOMBRE ) 
CF #00 

JP Z,FINI 

DEC A 

LD (NOMBRE) ,A 
LD HL, NOMBRE 
LD L, (HL) 

LD H,#00 

LD BC,TAEX 
LD DE,TAEY 
SCF 

CCF 

ADC HL,HL 
ADC HL,EC 

LD C,(HL) 

INC HL 

LD E,(HL) 

LD (X1),BC 
LD HL,NOMBRE 
LD L,(HL) 

LD H,#@0 

SCF 


FATCHWDRE 


H Y1 a l'adresse TABY + Z # valeur de NOMBRE 


sIncremente NOMBRE 


;Fasse a la routine suivante 

sMet le temoin BAS a @ (OFF), pour signaler que 
le point d'inflexion n'a pas ete trouve sur 14 
sligne inferieure a la ligne courante. 

sDeplace le point en cours vers la droite en 
sincrementant l'abscisse 


Est-ce le bord droit de l'ecran? 


:Non, alors prends ce point! 


Oui, ca equivaut a une inflexion. 

Charge les coordonnees du point en cours dans les 
sregistres concernes et fait appel à la routine 
TEST de la ROM. 

sLe resultat du test est decode: Si: A=1 alors F=<285 
5 A=0 alors [ol] 
; Comparaison de cette couleur avec la couleur de 
sreference. En cas d'egalite ce point est un point 
sdu contour. Dans le cas contraire 11 faut 
srecommencer tous les teste, 

sL'abscise du point de droite de la ligne en cours 
sest sauvegardee, apres le caicul de sa position 
sdans la table: 


3 Xi a l adresse CONX + valeur de LIGNE 


l'index de lignes est incremente. 


sLe compteur des points d'inflerion est teste 

set s1 il est a zero, tous les points trouves ont 
sdeja ete traites: c'est la fin! 

Sinon, on decremente ce compteur et on reprend 
iles coordonnees du point d'inflection 
;scorrespondant, sauvegardees auparavant dans les 
stables: 


X1 a l'adresse TAEX + 2 + valeur de NOMBRE 
Yi a l'adresse TABY + 2 * valeur de NOMBRE 


TRAMES 


3F 


: EDSBES9F 


2AE79F 
CDFOBE 
D 
2F 
21E09F 
BE 


: CAECAI 


CT68AQ 
CD73A4 
Ci 

E1 

F1 
EDA4SAGES 


FIN2: 


7 C9 


116098 
2AF99F 


FINI: 


: CDACAS 


ZTAFR9F 
FEUO 


: CASSAZ 


A286 
A288 
A28E 
A28E 
A291 


A292 


A295 
A298 
A29E 
A29E 
A29F 


AZAZ Z 


AZAS 


; AZAB 


AZAS 


FEQI 

FASOAZ 

CIEéAS 

FEQI ORTHO: 
CA9BAZ 

ZAEQSF 


RIEN: 


CALT: 


AZAR E 


AZAE 
AZAE 
AZE! 


A2E4 


AES 


A2Bé 8E 


H2E7 


+ ACER 


A2ED 
AECU 
A2C2 


ALCS 


NULE : 


L2FASH 


FYRADEV 


CCF 

ADC HL,HL 
ADC HL,DE 

LD E, (HL) 

INC HE 

LD D,{HL) 

LD (ÿ1),DE 
LD DE,{X1? 

LD HL,(Y1) 
CALL TEST 
DEC A 

CFL 

LD HL,F 

CF (HL) 

JF Z,INFL 

JF ZERO 

CALL BELL 
FOF BC 

FOF HL 

FOF AF 

LD (CRAYON) ,EC 
RET 

LD DE,CONX 
LD HL, (LIGNE) 
SCF 

CCF 

ADC HL,DE 

LD (HL) ,#FF 
INC HL 

LD CHL),#FF 
CALL DECL 

LD A,(TYFE) 
CF 

JF 

CF 

JF 

JF 

CF 

JF 

LD 

LD (MODY+i2:),A 
CFL 

LD CINVR+1) ,AÀ 
JF CALT 

LD A,({F) 

LD CINVR#+1) ,4 
CFE 

LD (MODY+17:,4 
LD A, (AT) 

LD HL,ET 

SCF 

CCF 

ALC À, (HL) 

LD (ET),A 

LD A,(CT) 

LD HL,ET 

SCF 

CCF 

ADC 4, (HL) 

LD (FT) ,A 
CALL NULE 

JF DEF 

LD A,#00 

LD (LIGNE) ,4 
LD (LIGNE+1) 4 


FATCHYORI 


au test habituel on verifie si celle ligne 
eja traitee: 


:S1 oui, on passe au point suivant d'infliærion 
Sinon rebeiote depuis zero! 
sSignalons par le petit bep que le travail est 
itermine et, apres avoir recupere les registres 
ssauvegardes sur la pile, retournons a notre 
slanguage maternel -qui est le BASIC, en 
irestaurant au passage les couleurs d'origine. 

/ 
acer le stoppeur #FFFF dans la table CONX, pour 
gnaler la fin du contour. 


PF 
LE 


1 
1 


sQuelle est l'option demandee? 

Est-ce REMPLIR? 

sDans ce cas c'est termine! 

:Est-ce GENERATION DES TRAMES ORTHOGONALES 

3S1 oui,eh bien vas-y! 

Sinon, c'est le FATCHWORH 

s1c1 commence la routine obscure de generation 

: (spontanee?) des trames orthogonales 4 9090. 

:Verifions l'option demandes. 

31 cest 1, inversons le crayon et le papiel 

sen modifiant en consequence les oct 

sde notre routine. Compte tenu du mode (41, 

sl un eSt complementaire de 1 autre. 

Mais 51 l'option etait 2, ne touchons 5 
aleurs d'origine que nous placerons comme 
recedemment, 


concernées 


sci est calculee 1a hauteur: 


ET=<AT+ERT 


et la largeur: 
FTeCT#0T 
sd un motit complet de 14 trame demandes. 


sAppel de la sous-routine de mise à 


La routine 


set saut au vrai depar L d 
slhse à zero de 14 variable LIGNE qu 


sd index de ligne Come pres edemmen 


TRAMES 


co 

CD9A0 
010098 
11009 
2AF99F 


EDA4SE19F 
ZEFF 
BB 


3 CASA 


24F99F 


2AE19F 
0600 
SAEF9F 
aF 
300 
BC 
C21447 
CB7D 
FAI4AS 
ZAEF9F 
57 

7D 

BA 
CAIBAZ 
FAIBAZ 
37 


ue 
3 


ED42 
CIFDA?2 
SAEC9F 
57 

7D 

BA 
CAG2AZ 
FAB2AS 
24E39F 
0600 
3AEE9F 
4F 
3EOU 
EC 
C247A5 
CE7D 
FA47AZ 
SAEE9F 
57 

7D 

BA 
CA4EAS 
FAAEAS 
37 


3 3F 


FYEA 


RET 
CAL 
LD 
LD 
LD 
SCF 
CCF 
ADC 
LD 
INC 
LD 
LD 
LD 
CF 
JF 
LD 
SCF 
CCF 
ADC 
LD 
INC 
LD 
LD 
LD 


DEV  FATCHWORI 


L STOF 
BC ,CONX 
DE ,CONY 
HL, (LIGNE) 


HL ,BC 

C, (HL) 

HL 

E, (HL) 
(XD) ,BC 
ASHFF 

E 

Z,FIN? 
HL, (LIGNE) 


HL ,DE 

C, (HL) 

HL 

B, (HL) 

CYT) ,BC 


* Z,MODX 
* M,MODX 


SCF 
CCF 
SEC 
JF 
LD 
LD 
LD 
CP 
JP 
JF 
LD 
LD 
LD 
LD 
LD 
CF 
JF 
BIT 
JF 
LD 


HL,BC 
CALX 
A, (CT) 
D,A 
A,L 
D 
Z,INVR 
M,INVR 
HL, CYT) 
E,#00 
A,(ET) 
C,A 
A,#00 
H 
NZ,SBCE 

7,4 
H,SBCE 
A, (ET) 
D,A 
AL 


* D 


Z ,MODY 


* M, MODY 


sScrutation du clavier pour arret d'urgence 
iles coordonnees des points de contc sont lues 
ligne par ligne.D'abord le point situe à gauche. 


sL'abscisse est chargee dans la variable de travail 
set comparee au stoppeur (HFF), 

3Si le poids fort de 1 abscisse est egal à HFF © est 
la fin du contour en cours et la fin tout court! 
Sinon, lecture de 1 ‘ordonnee de la ligne en cours. 


:L'ordonnee est chargee a son tour. 
sL'abscisse est maintanant comparee à la largeur 
sdu motif. 


:Si le poids fort de l'abscisse est different de 
zero, l abscisse est plus grande que motif qui doit 
setre obligatoirement plus petit que #01Q0' 
sAttention, pour ZB80 toutes les valeurs sont signees 
ile test de comparaison est donc aiguille en 
sfonction du signe. 


3Si l'abscisse du point en cours est egale ou plus 
spetite que la largeur du motif nous passons a la 
sroutine qui determinera la couleur de ce point 
Sinon, nous rechercherons par soustractions 
successives INT(XT/FT) qui remplit cette condition. 


:Cette condition etant remplie, nous verifions 

la nouvelle condition, celle qui sert à d rminer 
:1a couleur du point en cours en fonction des 
sparametres de la trame, en l'occurence CT, nombre 
sde colonnes pleines.S1i la valeur calculee ci-dessus 
est plus petite ou egale à CT, 11 faut inverser 
les couleurs, c'est a dire dessiner. Sinon, 11 
sfaut d'abord, de la meme maniere que plus haut, 
strouver INT(YT/ET) qui remplit la condition ‘=ET. 


0008 


A349 
A34B 
A34E 
A351 
A352 
A3S3I 
A354 
A3S57 
A3SA 
A35C 
ASSF 
A362 
A364 
AZ67 
A56E 
AG6E 
A36F 
AI72 
A373 
4376 
A377 
AZ7A 
A37D 
A580 
A581 
A:82 
A384 
A385 
A386 
A387 
AG8A 
A58B 
A38E 
A391 
A392 

395 
A398 

399 
A39A 
A39D 
A39F 
ATAù 
AGAZ 
AGAS 
A3A6 
A3A9 
AZAC 
AGAF 
AZEQ 
ABS 
A3B7 
ASBA 
A3BD 
A3EF 
A3C2 
ASCS 
A3C8 
A3C9 
ACC 
ASCE 
A3DI 
A3D4 
A3DS 
A3D6 
A5D8 


TRAMES 


ED42 
C3SQAZ 
SAEA9F 
57 

7D 

EA 
CAGZAS 
FA62A3 
3E00 
T2A3B6 
C367A5 
TE00 
32A3B6 
EDSBE19F 
2AE39F 
F5 
CDEABE 
F1 
2AE19F 
25 
22E19F 
@1009C 
24AF99F 
37 

3F 
ED4A 
4€ 

23 

48 
3AE29F 
B8 
C2F4A2 
ZAE19F 
B9 
C2F4A2 
2AF99F 
25 

23 
22F99F 
3EFF 
BD 
C2C9A2 
3E0i 
BC 
C2C942 
C35942 
3AFO9F 
3D 
32F09F 
EDSBF 19F 
210098 
010006 
EDEQ 
24F19F 
CDC9AZ 


22F19F 


C9 
ZAFO9F 
FEO0 
CAESAZ 
010006 
37 

3F 
ED4A 
3E40 


FYRADEV  FATCHWOREH 


SBC HL,BC 

JF CALY 

LD A, (AT) 

LD D,A 

LD AL 

CF D 

JP Z,INVR 

JP M,INVR 

LD A,#00 

LD (CRAYON) ,A 
JF INVR+S 

LD A,#00 

LD (CRAYON) ,A 
LD DE, (XT) 

LD HL, (YT) 
PUSH AF 

CALL PLOT 
FOF AF 

LD HL, (XT) 
INC HL 

LD (XT) ,HL 
LD BC,CONZ 
LD HL, (LIGNE) 
SCF 

CCF 

ADC HL,BC 

LD C, CHL) 

INC HL 

LD B,(HL) 

LD A, (XT+1) 
CF E 

JP NZ,DER 

LD A, (XT) 

CP C 

JP NZ,DER 

LD HL, (LIGNE) 
INC HL 

INC HL 

LD (LIGNE) ,HL 
LD A,#FF 

CP L 

JP NZ,DEFO 
LD A,#a1 

CF H 

JF NZ,DEFO 
JF FINZ 

LD A, (COMPT) 
DEC A 

LD (COMFT) ,A 
LD DE, (POINTX) 
LD HL,CONX 

LD BC,#0600 
LDIR 

LD HL, (POINTX) 
CALL DECI 

LD (POINTX) ,HL 
RET 

LD A, (COMPT) 
CP #00 

JP Z,RETOUR 
LD BC,#0600 
SCF 

CCF 

ADC HL,BC 

LD A,#40 


Cette condition etant remplie, nous verifions 

la derniere condition qui sert a determiner la 
scouleur du point en cours en fonction du nomre 
;de lignes du dessin (AT) que nous comparons à la 
;valeur trouvee.Si cette valeur est plus petite ou 
segale à AT, il faut inverser les couleurs, c'est à 
sdire dessiner. Quelque soit le cas il faut donner 
sau crayon la couleur placee plus haut par les 
modules ORTHO où RIEN en fonction de 1 ‘option. 


;11 ne reste plus qu'a charger les coordonnees 
sdu point en cours dans les registres habituels 
set, apres avoir conserver sur la pile la couleur 
sdu crayon,de faire appel de la routine FLOT, 
Apres la recuperation de la couleur du crayon 
;l'abscisse est incrementee et comparee a 
;l'abscisse du point du contour de droite de la 
smeme ligne. 


:L'absence de l'egalite signifie que nous n'avons 
;pas encore trame toute la ligne. Il faut, donc, 
sreprendre tous les tests et tous les calculs comme 
spour le point precedent. 

;En cas d'egalite, par contre, toute la ligne est 
stramee. 11 faut incrementer l'index ligne, pour 
passer à l'ordonnee suivante. 

;Verifions tout de meme que nous n'avons pas 
;sdepasse la capacite de nos tables, dans quel 
cas la recherche de 1l'ordonnee suivante serait 
;svaine. Sinon, recommencons le tout pour nouvelle 
sligne en cours a partir du vrai depart de la 
sroutine ORTH. 


3Saut a la fin de la routine. 

;Les sous-routines qui suivent servent à la mise 
;a jour des pointeurs des tables de conservation 
;des coordonnees des contours successifs. Ces 
;tables seront exploitees, le cas echeant par 1a 
sroutine de pochage, (effacememnt partiel des 
scontours choisis).La variable COMFTeur decompte 
;les numeros des contours.L'ensemble des tables 
3CONX, CONY et CONZ et transfere dans les tables 
scorrespondantes a partir de l'adresse pointee par 
:POINTX et ceci sur #0600 octets pour chaque 
scontour. 

sMise a jour du POINTX en fonction du COMPTeur. 


3S1 le poids fort de l'adresse du depart des 


Ses eessssesssss 
œ 0 © O © © © CN On CN En CN Ên 
9 LT bRA-S LOI UNE 


BC 
3 C2ESAZ 
- @10040 


RETOUR: 


CDCOA: FATCH: 


* CD9:Aû FREFA: 


Q10098 
11U05A 


* ZAF99F 


7 400 
ÿ 40 
Adau 
4406 
A409 
A40A 
 A40K 
4400 
A4QE 
A40F 
A41Q 
A414 
A415 
A41S 
A41D 
A420 
A427 
A424 
A425 
A42S 
A4ZA 
A42D 
A4ï0 
A474 
A4:7 
A4ZA 
A4ID 
A4TE 
A44i 
444 
A447 
A448 
449 
A44E 
A4AC 
444D 


3F 
ED4A 
4€ 


46 
EDASEI 
ZEFF 
88 
CAS9AZ 
2AF99F 
3F 
EDSA 
4€ 


= 


46 
ED47E79F 
DEFT: 
ü 
EDSBE19F 
2AËE239F 
CDFOEE 
3D 
2F 
T2ASE6 
ECO 
T2C6R7 
CDO8EC 
EDSBE19F 
2AE39F 
CDEABE 
ZAE19F 


+ 
23 


22E19F 
a1009C 
2AF99F 
37 

2F 
ED4A 
4€ 


n+ 


45 


FYRADEV 


CF H 

JF NZ ,RETOUR 
LD EC,#400û@ 
SCF 

CCF 

ADC HL,BC 
RET 

CALL NULE 
CALL STOF 
LD BC ;CONX 
LD DE,CONY 
LD HL, (LIGNE) 
SCF 

CCF 

ADC HL,BC 
LD C,(HL) 
INC HL 

LD E,(HL) 
LD (XT) ,BC 
LD A,#FF 

CF B 

JF 2,FIN? 
LD HL, (LIGNE) 
SCF 

CCF 

ADC HL,DE 
LD C, (HL) 
INC HL 
LD':B,(HL) 
LD (YT) ,BC 
LD 

LD 

LD DE,(XT) 
LD HL,(YT) 
CALL TEST 
DEC A 

CFL À 


LD (CRAYON) ,A 


LD A,#C0 

LD (ECRAN) ,A 
CALL #BC08 
LD DE, (XT) 
LD HL, (YT) 
CALL FLOT 

LD HL, (XT) 
INC HL 

LD €XT) ,HL 
LD EC,CONZ 
LD HL, (LIGNE) 
SCF 

CCF 

ADC HL,BC 

LD C, (HL) 
INC HL 

LD E, (HL) 


FATCHWOR 


stables designe le debut de l ecran virtuel, 

le pointeur sera augmente de #4000, afin d'eviter 
scette zone.La premiere zone des tables va ainsi 
ide #2200 a #IFFF et la deuxieme de #8000 a #9DFF. 
;On constate que l'intervalle #9800-#9DFF appartient 
sen meme temps aux tables CONX, CONY et CONZ. Il 
;scontiendra toujours le dernier contour. 

:Appel de la sous-routine de mise a zero de l'index 
:Fe-scrutation du clavier pour l'arret d urgence. 

: Comme precedemment les coordonnees du point en 
scours sont lues dans les tables et chargees 

sdans les variables de travail. 


:Comme precedemment 1a comparaison avec le 
;sstoppeur #FF afin d'identifier la fin du 
scontour en cours. 


Nous indiquons au systeme que l'ecran de travail 
Sera ecran virtuel à l'adresse #40 (poids fort). 
sLecture de la couleur du point en cours de 
l'ecran virtuel par TEST habituel. 


Le resultat est decode comme deja vu et charge 
sdans la variable systeme. 


Nous indiquons au systeme que 1 ecran de travail 
sera celui commencant a #CO (poids fort) et 
;sconfirmons son affichage par la routine de la 
ROM. Les coordonnees du point en cours sont de 
nouveau mises dans les registres adequats et 

la routine FLOT est charge de la reproduction 
ssur l'ecran affiche de la couleur lue sur 
:l'ecran virtuel pour le meme point. 

;Comme deja vu la verification concernant le 
sdernier point de la ligne en cours. 


Ses 


Le] 


D A 01 OO (1 CG 


Læ] 


TRAMES 


IEFF 
ED 
C'IE9AZ 
TEBI 
EC 
C2E9A: 
CI49AT 
F5 


ES 


5 3E07 


ROMINF : 
où 
94 
F5 FOCH: 
ES 
DD/E00 
FEQE 
FAñlA4 
21D09F 
O50F 
7E 
CDSAEBE 


+ 


os 

C290A4 

CDO4BE 

Dé 

C38441 

22F09F FOC1: 
EDIBATES 

CS 

21002? 

FEQI NUMERO: 
CABEA4 
CDCSFA: 
TAF O9F 
3D 
32F09F 
CTACA4 
22F19F 
1100978 
210005 
EDEQ 
CDCOR2 
210098 
11007 
24F39F 
37 

2F 
ED4 


INDICE: 


FYRADEY Fa TCHWORt 


LD A,4FF st de depassement de la Lspacite des 
CFE its S. 
JF NZ,FREFA 
A, #0 i 
H 
HZ, ,FREFA 
vers FIN 
uver les registres, car cette routine appele 
"BELL" (print chr#t7)).Sur le CFC ceci donne 
sen realite un "EIF'"! Apres la pr “ation de: 
CALL ROMINF registres on charge le code ASCII d ELL et on 
OF À :appele la 
FOF HL 
FOF AF 
FRET‘ 
RST sAdressage page zero, modifie, avec transtert du 


-routine qu Se charge de reslarl, 
sApres la restauration des registres, retour à La 
routine principale. 


NOF scode select.rom-adress ici simule par trois 
SUE H sanstructions: RST 8,N0F,SUE H FRST 5, 14004! 
FUSH ÀF Debut de 12 routine complementaire "FOCHage" 
FUSH HL 

LD 4,(1Xx+0) 
CF #OE 

JF M,FOCI 
LD HL,REDO 
LD E,#0F 
LD À, (CHL) 
CALL FRINT 
INC HU 

DEC E 

JF N2Z,SOR1 
CALL RECA 
SUE 48 

JF FOCH+2 
LD (COMFT) sauvegarde du numero du contour &l de la couleu 
LD EC,{CRAïllir sactuelle du crayon. 

FUSH BC sMise à Jour du pointeur de ja table des 

LD HL,#2200 :coordonnees en fonction du numero du contour, 
CF #01 391 c'est le No 1 on continue plus loins. 

JF Z,RES} 

CALL DECI Sinon, on appelle la =ous-routine d aiustement 
LD A, (COMFT) puis on decremente le compteur el on recommence 
DEC À ile test. 

LD (COMFT) ,A 

JF NUMERD 

LD (FOINTX) ,HL :La bonne adresse etant trouves on procede au 

LD DE,CONX :deplacemént des tables dans la zone CÜNA, Ÿ 

LD HC,#0600 :Four cela on utilise la routine interne du 

LDIR 

CALL NULE 

LD BC,CONx 
LL DE,CON* 
LD HL, (LIGNE) 
SCF 

CCF 

ADC HL,BC 


Sauvegarde des registres sur la pile. 
Lecture du numero du contour à effacer. Meme 
idetail qu au tout debut (CHOI1). 


iMse 4 2e 0 habituelle. 
ile processus de lecture des cosrdonners est 
smaintenant bien connu, car deja vi 


J NN © 


ul 
Ju Riirje 


ss 


annunauaaguun Fa Cn on CN CA CN ÇA CN CN CN LA CN 1 


A4GE ZAE29F LD A,(XT+1) f 4E LD C,(HL) 
A451 B8 CF E x: 23 INC HL 
A4SE C21444 JF NZ,DEFT 46 LD B, (HL) 
À4S5 TAE19F LD A,(XT) ë QE DEC EC 
A458 E9 CP C ED4:E19F LD (XT',6C 
A459 C21444 JF NZ,DEFT 4 ZEFF LD A,#FF 
A4SC 24AF99F LD HL,(LIGNE) :;S1i la fin de la ligne en cours est atteinte E8 CF E 


ss 
Hs 


A NN 


iles differents tests auz=1. 


ss 


A4SF 25 INC HL 


460 
A4éi 


+ 
23 


22F99F 


INC HL 
LD (LIGNE) ,HL 


;l'index ligne est incremente comme avant. 


CAA9AZ 
2AF99F 


JF Z,FINT 
LD HL, (LIGNE) 
SCF 


appel de 


2 


“eaut 


La nc 


INFORMATIC 
APPLICATIONS 
Utilitaire 


Le loto et son cousin musclé le 
loto sportif déclenchent les 
passions de milliers de personnes 
accrochées à l'espoir de pouvoir un 
jour toucher le gros lot. Si le loto 
sportif présente des paramètres 
maîtrisables : forme actuelle de 
l'équipe, force comparée des 
adversaires ; en revanche le loto 
est totalement lié au hasard. Face 
à cette avalanche de chiffres 

(13 983816 combinaisons), 
nombre de joueurs se fient au 
hasard ou bien à des symboles : 
dates de naissance, pointure de 
chaussures et autres chiffres 
‘magiques. 

D'autres ont immédiatement fait le 
lien entre l'ordinateur et le jeu de 
hasard. En effet, l'ordinateur et 
son microprocesseur ne sont-ils pas 
des machines à triturer les 
chiffres ? Ceci à condition de 
disposer du programme adéquat, 
bien sûr. Loto-informatic se 


e 


| propose de vous apporter l'aide 

| logicielle nécessaire à stimuler 
votre chance. 
Le premier fichier est appelé 
LOTOINFO. Après un chargement 
par RUN, le programme affiche le 
dernier tirage en date, avec son 
numéro. Trois options vous sont 
alors offertes : modification du 
tirage en cas d'erreur, choix d'un 
tirage précédent ou passage à la 
suite du programme. 
La suite du programme justement 
ne vous propose rien moins qu'une 
étude complète (ou presque) de 
chaque tirage sélectionné. 
En prime, avec chaque numéro de 

| 1 à 49, une série de chiffres 

| correspondant à la redondance, la 

réussite courte, la fréquence, la 

compensation, les liaisons, les 

écarts, la réussite totale. Une 

remarque en passant : notons la 

prédominance du chiffre 7 : sept 

| chiffres affichés simultanément 
composant sept tableaux 

| différents. 

| Les significations de ces termes 

| vous sont données dans le manuel. 
Sachez simplement que la cote, 
symbolisée par de petites étoiles, 
indique les numéros ayant le plus 

| de chance de sortir. Selon l'option 

| choisie, les chiffres vont défiler 
automatiquement ou non et vous 

donner finalement des bases de 

jeu, ainsi qu'une synthèse. 

Ensuite, un phénomène de brassage 


ariable sy 


teme 


les points 
meme 


HWOR+ 


AT 


a la routine F 


sAcces 


Chargement 


IMTTVIENT. Celui-Ci débouche Sur la 
confection automatique de grilles 
simples. N'étant pas un acharné du 
loto, les subtilités du programme 
m'échappent vivement. 

L'autre programme présent sur le 
disque est intitulé LOTOFICH. Ce 
dernier utilise également le fichier 
des tirages et peut être utilisé 
comme une gestion de fichier 
portant sur des nombres. C'est-à- 
dire que l'on y trouve les options 
habituelles de consultation, édition, 


r— 


\ ASSEMELAGE 


FIN 


to 4F@ 


: Ouoù 
0a75 


mise à jour, recherche multi- 
critères, sauvegarde et chargement 
des données. 

Certaines notions employées 
m'échappent un peu : la rotation 
théorique des 49 numéros, par 
exemple, ou la compensation. Mis 
à part ces questions mineures, le 
manuel n'est pas toujours très 
clair et l'on aurait souhaité 
quelques informations 
supplémentaires sur les notions 
évoquées plus haut. 


URGENT !!! 


Occasion à saisir sur Bor- 
deaux, livré clés en mains, 
point de vente micro agréé 


ATARI, 


C.A. actuel minimum : 
300000 F/mois. 

Pour tout renseignement 
Tél. 56.91.15.81 


BANC D'ESSAI 


Bernard BESSE 


OBJET DU PROGRAMME MINImaj 


MINIMaij sert à mettre en MAJUSCULES 
ou en minuscules les noms de toutes les 
variables d'un programme BASIC. Cette 
opération, réalisée sur le programme en 
mémoire centrale, est rapide (18 noms 
par seconde, environ). 


L'intérêt de minlmAj est le suivant : 


— le listing fait moins désordre ; 

— la normalisation (majuscules ou 
minuscules) des noms permet des 
recherches ‘‘à vue'’ des noms de varia- 
bles sans trop d'omissions et facilite la 
compréhension du programme ; 

— pour la recherche (ou la recherche 


avec remplacement), certains éditeurs de 
textes ont la possibilité de considérer 
comme indentiques la lettre majuscule et 
la lettre minuscule correspondante 
(TURBO-PASCAL), mais d'autres ne le 
permettent pas (MAXAM). 


Pour ces derniers, il est indispensable de 
normaliser au préalable les variables du 
programme à éditer. En effet, il y a 128 


66060 “### LERE LIGNE - ne pas supprimmer ### :TG: 
69416 GOTO 4069 #HH£ 
66426 SAVE "minima", A: END “AT: 
GOQTQ ME 
64646 ‘(c) Bernard BESSE #6L: 
GED‘ - "°°" """" "" *FM: 
ÉO06Û : NE 


6476 CLEAR:DEFINT a-2:vr=-1: fat: deb=T68:z24="":2er02$ KP< 
2STRINGS (2,9) :en$="8----" 

64688 ‘--- CALL @kdeek{1), Adresse Base, Deplacement, & :UQ< 
Ri - (Ri=Val.DEEK) 

66494 DATA DD,6E, 64, DD, 66,85, DD,5E,02,DD,56,43,19,5E,27 :2R4 


Sb 
L 

89190 DATA DD,6E, 00, DD, 46, 01,72, 23,72, C9 :LH: 
Lb115 RESTORE 60090:DIM KDEEK (12): ri=ÿ FAI 


6124 FÜR k=1 TO 13:READ 1$,m$:MID$ (ent, 2)=m$:MID$ (ent, VE: 
4)=1$:kdeek (k)=VAL (en$):NEXT 

66129 ‘--- CALL &kdoke(1) Adresse de Base, Deplacement, :UL: 
Valeur à DOKER 

66149 DATA DD,6E,64,D0D, 66,45, DD,SE,42,DD,56,93,DD,4E,94 :CM: 


DD 
3 

&9150 DATA 46,01, 19,71,23, 70,C9,00 FAN: 
&160 RESTORE 6d140:DIM KDOKE (12) >MP< 


69176 FOR k=1 TD 12:READ 1$,m$#:MID$ (en$, 2)=m$:MID$(en$, >KQ: 
4)=1$:kdoke(k)=VAL (en$):NEXT k 

64189 : ?QR< 
69196 CLS: INFUT"Lettres <Hautes ou ‘Basses “;hb$:hb$ >NT< 
=UPPER$ (hb$) 

69206 IF hb$<>"H" AND hb$£>"B"THEN 60186 CJ< 
66219 RESTORE 60600: CALL@kdeek (1) ,LAE3A,0,@rl:ad.1erezr ÈFK< 
1 

69229 CLS:PRINT#0, "Fassage VARIABLES en "; #GL< 
69236 IF hb$="H" THEN PRINT "MAJUSCULES";ELSE PRINT'min :BM< 
uscules": 


602"à FRINT#6," ( * = { nom de variable ) 3VNE 
60250 PRINT#Y, 2 YP< 
69260 : :PQ< 


72 


85279 CALL@kdeek (1) ,deb,d,ri:lg=ri:1F 1g=0 THEN 69536 ‘MR: 
60280 IF debad.tere THEN 69539 »PTÉ 
6290 IF 1g<=255 THEN 60326 YU: 
LO30G CALLEKDEEK (1),DEB, 2,6R1:NLINE !=R1-65526X (NLINE 0) RE: 


64319 PRINT:FRINT'Reduire long. ligne";NLINE!; "superieur ;YL: 
e à 299, 6VF, ":CLEAR:END 


60726 : “LM: 
E330 POFE &z:$,1q: CALL@kdoke(1),82z$,1,deb S TN: 
69346 ci=i PE 
60350 : PQ< 


69368 xx=INSTR (ci,22$,zero2$): IF xx=à THEN deb=deb+lg: ?GR< 
GOTO 65260 


69370 ci=xx+i 2MT£ 
6386 ad=deb+(x4-2) : type=PEEK (ad) #WU< 
66390 IF type:2 OR type >13 THEN 69350 3MVE 
66400 IF type:4 AND type “11 THEN 66135% #HL: 
66419 PRINT'"'#"; :NM 


69426 ad=deb+xx" AD pointe juste avt le debut de la Va :QN: 
riable 


&416 IF hb$="B"THEN 66495 RP: 
66446 : PQ: 
66450 ad=adti: vcar=PEEK (ad) FRE 


&%469 IF vear:91 THEN 60446 ELSE IF vcar“128 THEN POKE ?2T< 
ad,vcar-32:G60T0 60446 

68474 IF voar<219 THEN 66356 ELSE POKE ad,voar-3%:G60T0 ?KU< 
66350 

63486 : sUV< 
69490 ad=ad+i: vcar=FEEK (ad) ALES 
64599 IF vear91 THEN IF vear<é5 THEN 66486 ELSE FÜKE a :YM< 
d,vcar+32:G0T0 69466 

69516 IF vcar:128 THEN 66489 +IN£ 
69524 IF vear193 OR vear>218 THEN 66354 ELSE POKE ad,v RP“ 
car+32:6070 64350 


69530 : FQ€ 
64549 CLEAR:END 3PR< 
60950 “HHHHRE AR 


façons d'écrire MIniMAj en mélangeant 
majuscules et minuscules. 

— On peut mettre à son propre goût un 
programme provenant d'un tiers ou 
modifier ses propres programmes pour 
les adapter à l'humeur du moment. 


MISE EN OEUVRE 


e MinimaJ est stocké en format ASCII 
à partir de 60000. 

e Après chargement du programme à 
modifier : 

— faire MERGE ‘‘'miniMaJ"" 

— puis RUN 60000 

°+ Répondre à la question : 

— Lettres <H>autes ou <B>asses ? 
e Porter un jugement sur la vitesse du 
traitement (chaque nom traité est visua- 
lisé par un ‘‘*"). 


POINTS PARTICULIERS 


e La recherche se fait principalement par 
INSTR et non par PEEK (c'est beaucoup 
plus rapide). Le procédé utilisé est celui 
de la chaîne forcée : 

On force dans les 3 octets du descrip- 
teur d'une variable ZZ$, (descripteur créé 
en faisant ZZ$ =" "’): 

— la longueur de la ligne (1 octet) ; 

— l'adresse de la ligne (2 octets) ; 


e Pour traiter MINIMAJ par MINIMAJ: 
— Load ‘’MINIMayJ 

— RENUM 62000 

- MERGE ‘'minimaj 

— RUN 62000 


.. puis 


— Delete 62000- 
— Save ‘’minimaj'',a 


e L'attention est attirée sur les routines 
machine KDEEK et KDOKE (1e K pour 
déKalage) plus souples que DEEK et 
DOKE. 


SI VOUS AVEZ L'INTENTION DE CRÉER 
OU SI VOUS AVEZ DEJA CREE 


VOTRE BOUTIQUE 
INFORMATIQUE 


_ 


REJOIGNEZ-NOUS AVEC LA FRANCHISE 
SON VIDEO 2000 ET DEVENEZ 
UN DISTRIBUTEUR POINT MICRO POUR 
MOINS DE 20000 F !!! 


DISTRIBUTEUR AGRÉE AMSTRAD, 
COMMODORE. ATARI, ORIC et COMPATIBLES PC. 


RENSEIGNEMENTS : 


Tél. 56.91.15.81. | 


Adresse ee — 


amstradistes 


Malins les amstradistes, ils ont enfin trouvé le logiciel de leur 
rêve! 

Vous aussi adoptez le logiciel SÉRIE.2 et découvrez vite la 
COMMUNICATION SANS FRONTIÈRE... 


Pour moins de 1.000 F vous pouvez désormais vous 
connecter directement sur le réseau téléphonique et trans- 
mettre vos fichiers, programmes, CAO, DAO en toute fiabilité. 
Avec SÉRIE.2, il n'est plus nécessaire d'être un crack en infor- 
matique pour enregistrer, archiver, imprimer, les pages écran 
de votre minitel afin de les consulter HORS CONNEXION cesi- 
à-dire : GRATUITEMENT. 

Avec le câble spécial SÉRIE.2 reliez votre ordinateur à votre 
minitel et vous avez immédiatement accès à vos banques de 
données favorites. SÉRIE.2 UNE UTILISATION SIMPLE POUR 
DES APPLICATIONS MULTIPLES... 


Avec SÉRIE.2 exploitez aussi les 2 millions d'adresses profes- 
sionnelles de l'annuaire électronique pour créer vos fichiers 
et les récupérer dans les divers progiciels existants ou 
encore éditer des étiquettes adresses pour vos mailings. 


SÉRIE.2 UNE EFFICACITÉ MAXIMUM POUR UN COÛT 
MINIMUM. 
SÉRIE.2 vous ne trouverez pas moins cher ailleurs 


SÉRIE.2 

e Version PC1512 

990 F TTC. 

e Version CPC 464 + DDI, CPC664, CPC 6128, PCW 8256, 
PCW 8512 (nécessite un interface série RS 232 C) 

690 F TIC. 


c | pr 
SERIE.2 est en vente à la Ds 


AVEC SÉRIE.2 : “TÉLÉCOMMUNIQUEZ MALIN !” 


2 


2 


DIFFUSION 


Pour tout complément d'information, retournez ce coupon à 


. JMN DIFFUSION 
LES CLÉMATITES 38410 URIAGE 
Permanence téléphonique : 78 27 97 90 


M.,, Mme 2 — —  —_  — _ — _" —  — —_— 


__ Code postal a 


C7] LE LANGAGE MACHINE 

DE L'AMSTRAD CPC 
Plus loin que le BASIC. Des bases de la programma- 
ton en assembleur à l'utilisation des routines systè- 
me, nombreux exemples. Contient un programme 
assembleur, moniteur et désassembleur. 
Réf. 228 — Prix : 129 F 


[2 MONTAGES, EXTENSIONS 

ET PERIPHERIQUES AMSTRAD CPC 
Tout ce que peut réañser un amateur d'électronique 
avec un CPC. Interfaces, programmateur d'EPROM... 
Un très beau livre de 450 pages. 
Réf. 235 — Prix : 199 F 


C2 LE LIVRE DU LECTEUR DE 
DISQUETTE AMSTRAD CPC 

La programmation et la gestion des données avec le 
6128, le DD-1 ou le 664 | Utile au débutant comme au 

Er meur en langage machine. Contient un listing 
du DOS comment, un uélitaire qui ajoute les fichiers 
RELATIFS à l'AMDOS avec de nouvelles oomman- 
des BASIC, un MONITEUR disque et beaucoup d'au- 
tes programmes et astuces. 
Réf. 232 - Prix : 149 F 


C2 LA BIBLE DU CPC 6646128 

Tout connalte sur les CPC 6128 et 664. Analyse du 
système d'explaitabon, du processeur, le GATE AR- 
RAY, le contäleur vidéo, le 8255, le chip sonore, les in- 
terfaces. Réf. 250 — Prix : 190 F 


CT] MIEUX PROGRAMMER EN ASSEMBLEUR 
Thomas Lachand-Robert 

Méthodes de programmalion en assembleur Z80, ac- 

compagnées de nombreux exemples de programmes 

d'application fonctionnant sur les Amstrad CPC 464, 

664 et 6128. Réf. 0199 — Prix : 148 F 


C1 TECHNQUES DE PROGRAMMATION 

DES JEUX EN ASSEMBLEUR 

Georges Fagot-Barraly 
Cet ouvrage contient des programmes de jeux écrits 
pour les ordinateurs Amstrad CPC 464, 664 et 6128. 
Chaque programme est accompagné d'une analyse pé- 
dagogique de la structure des phases essentielles et 
de tableaux résumant la foncion et les valeurs des 
principales variables. Réf. 208 — Prix : 96 F 


CT] GRAPHISME EN ASSEMBLEUR 
SUR AMSTRAD CPC 
F. Pierot 


Programmer des applications graphiques en assem- 
bleur sur Amstrad (464, 664, 6128). De nombreuses 
rouênes. Réf. 340 — Prix : 145 F 


C3 AMSTRAD EN MUSIQUE - D. LEMAHIEU 
Pour les amaleurs déjà initiés au langage BASK, 
traduction d'œuvres musicales sur Amstrad. Partant 
de la génération de sons, en passant par le synhét- 
seur musical programmable. Réf. 240 - Prix : 165 F. 


C1 PRATIQUE DES IMPRIMANTES 

Michel ARCHAMBAULT 
Apprendra aux amaleurs comme aux professionnels 
à résoudre les mille et un problème qu'ils ne manque- 
ront pas de rencontrer lors de la mise en service de 
leur imprimante - PRIX : 95 F 


Adresse : 


Code postal : 
Ville : 


C_] RSX ET ROUTINES 

ASSEMBLEUR SUR AMSTRAD 

D. ROY et J.J. WEYER 
De très nombreux programmes de graphismes et de 
mahémalques permettront aux possesseurs d'Ams- 
trad d'améliorer leurs connaissances en assembleur 
Z80. Prix : 200 F 


[7] MEUX PROGRAMMER SUR AMSTRAD 
Mchel ARCHAMBAULT 

Complément pratique du manuel d'onigine. L'art de con- 

cevoir et de créer un programme d'une manière effca- 

ce. Multiples astuces. Explique daiement certains 

points obscurs du manuel d'origine. 

Prix : 85 F 


C2 PROGRAMMES UTILITAIRES 

POUR AMSTRAD 

Mchel ARCHAMBAULT 
Nombreuses rouines : utilitaires de programmation, 
Uâlitaires graphiques, la gestion de fichiers, utilitaires 
imprimantes. 
Prix : 85 F. 


C1] APPRENEZ 
L'ELECTRONIQUE SUR AMSTRAD 
P. BEAUFILS 8 B. DESPERRIER 
Programmes permettant de visualiser les phénomènes 
complexes de l'électronique. 
Prix : 86 F 


C] COMMUNQUEZ AVEC AMSTRAD 
D. BONOMO 8 E. DUTERTRE 
Pour tous les passionnés d'ondes courtes, codage, dé- 
Er, iii ait nier faces. 
: 90 


[2 LA BIBLE DU PROGRAMMEUR 

DE L'AMSTRAD CPC 
Ce livre est l'ouvrage de rélérence pour tous oeux qui 
veulent programmer en pro. Organisation de la mémai- 
re, le contrôleur vidéo, les interfaces, l'interpréleur de 
touts la ROM désassemblée et commentée, etc. 
Réf. 226 - PRIX : 249 F 


102 PROGRAMMES POUR AMSTRAD CPC 

J. DECONCHAT 

Idéal pour débutants, pour guider le lecteur dans l'ex- 
ploraton du BASIC AMSTRAD. Les programmes à 
recopier sont dassés par niveaux, chacun d'eux fai- 
sant appel à de nouvelles connaissances. Réf. 222 
PAIX : 120 F 


C7 AMSTRAD A L'ECOLE 

D. MELSEN et G. AMPUDIA 
Desinés aux enseignants, parents et élèves : le 
cac, le français et l'éveil. Un cahier de vacances 
permet aux enfants de concevoir eux-mêmes de pe- 
bts programmes. Réf. 343 
PAIX : 120 F 


C1 BASIC PLUS DE 80 ROUTINES 

SUR AMSTRAD 

M MARTIN 
L'auteur propose 80 routnes pour simuler des Fonc- 
tions qui n'existent pas directement sur la machine. Le 
lecteur doit déjà connaître le BASIC de l'AMSTRAD 
CPC pour utiliser au mieux cet ouvrage. Réf. 286 
PAIX : 100 F 


C2 PERPHERIQUES ET ACHIERS 

SUR AMSTRAD CPC 

D... DAVID 
Les ordres correspondants à chacun des périphériques 
sont présentés : lecteurs de cassettes et de disquet- 
%s, imprimantes, crayon optique, manette de jeux et 
RS232. La programmaion des disques est étudiée en 
accès séquentiel à l'aide d'ordre BASIC et en accès di- 
rect à l'aide de rouines originales. Réf. 316 
PRIX : 120 F 


C7] BASIC-AMSTRAD 1 (méthodes pratiques) 

J. BOISGONTIER 
Jeu d'instructions très complet : gestion des interrup- 
Sons en BASIC, sortie stéréo au haut parleur intégré, 
etc. Réf. 230 
PRIX : 105 F 


[2] BASIC AMSTRAD 2 

{programmes et fichiers) 

J. BOISGONTIER 
Programmes graphiques uilisant la haute résolution 
ainsi que la gamme couleurs. Programmes de gestion 
de fichiers pour Mailing, étiquettes, création d'isto- 
grammes. Jeux à exécution très rapide. Programmes 
éducatifs. Réf. 249 
PRIX : 96 F 


TURBO PASCAL SUR AMSTRAD 

B. BRANDES et F. BLANC - CPC et PCW 
Toutes les commandes sont expliquées et ilustées 
pour arriver à un haut niveaut de connaissances : fai- 
re de l'assembleur à l'intérieur des rouines Pascal, 
connaltre le fonctionnement de Heap et de Pile, mairi- 
ser les pointeurs, etc. Ref. 310 

PAIX : 135 F 


[7] SUPER GENERATEUR DE CARACTERES 
SUR AMSTRAD 
J.-P. SEHAN 
Propose un programme original de création de car actè- 
res graphiques qui peuvent ètre uilisés tel quel pour il- 
lstrer des progammes de jeux ou modifiés au gré de 
Pmagination du lecteur. Réf. 300 
PAIX : 140 F 


[7 TRUCS ET ASTUCES Ti 

POUR AMSTRAD CPC 
Graphismes, lerètes, langage machine. Des supers 
programmes sont indus (gestion de Âchiers, éditeur de 
extes et de son). Réf. 221 
PRIX : 149 F 


[7] TRUCS ET ASTUCES T2 POUR CPC 

Vous y trouverez un générateur de menus, de mas- 
ques, des aides à la programmation comme un DUMP, 
etc. Réf. 251 

PAIX: 129 F 


C2] LES ROUTINES DE L'AMSTRAD CPC 

Pour bien connalte et utiliser les routines utiles du 
6128, 664 et 464. À la portée de ous. Nombreux pro- 
grammes utitares. Réf. 239 

PAIX : 149 F 


C2 DEBUTER AVEC LE CPC 6128 
Tout est dairement expliqué, aussi bien pour le maté- 


nel que pour le logiciel. Réf. 248 
PAIX : 90 F 


Total commande : 

Port 10% : 

Total de mon règlement : 
Date : 


Signature : 


LA BIBLE DU GRAPHISME 

Tout sur le GSX. Programmation d'un logiciel PAINT 
graphismes de gestion, graphismes vectorisés, fonc- 
tonnement et réalisation d'un light pen. Graphisme en 
langage machine, tout sur le graphisme CPC et PCW. 
Réf. 227 - PRIX : 190 F 


[7] LE GRAND UVRE DU BASIC CPC 6128 

Ce hvre vous permet d'exploiter à fond les capacités 
du BASIC LOCOMOTIVE. Attaque les différents do- 
maines de la programmadon : ris, fenêtre, protection, 
sons et musique, mémoire de masse avec l'AMDOS 
et le RAMDISK. Nombreux listngs d'applicaïons de 
haut niveau fournis et commentés. Réf. 268 

PRIX : 149 F 


C2 PROGRAMMER 

VOTRE TRAITEMENT DE TEXTES 

J.-C. DESPOINE 
Traitement de textes présenté pour l'exxentiel en as- 
sembleur. Pour 464, 664 et 6128 mis au point avec 
une DPM2000. K peut facilement ètre adapté à d'au- 
tes imprimantes. Réf. 221 - PRIX : 128 F 


PROGRAMMES EN LANGAGE MACHINE 
S. WEBB 

La façon de programmer l'équivalent des instructions 
BASIC : PRINT, GOTO, GOSUB, FORMEXT, etc. 
est tout d'abord étudiée, puis ces notions sont appli- 
quées à la réalisation d'un jeu d'action, De nombreux 
sous-programmes pourront ètre réutilisés par le lec- 
teur dans se propres programmes. Réf. 195 
PRIX : 82F 


[1] LOCOSCRIPT 

B. LE DU 
Ce kivre est une introduction et par sa démarche péda- 
gogique, i vous permettra une découverte aisée et ra- 
pide de ce traitement de textes. C'est aussi un ouvra- 
ge de référence auquel vous pourrez vous reporter et 
un guide pratique. Réf. 202 - PRIX : 110 F 


[1 ASTROCALC 

Gérard BLANC et P. DESTREBECOQ 
Si vous souhaitez disposer d'un outil de calculs permet- 
tant l'érection d'un hème nata ou d'une révolution 
sdaire, la comparaison de thèmes, la recherche auto- 
matique des transits et progressions tout en compre- 
nant les mécanismes mis en œuvre. Alors, cet ouvra- 
ge vous comblera. Réf. 162 
PRIX : 148 F 


PREMIERS PROGRAMMES AMSTRAD 
Rodnay ZAKS 

Quels que soient votre äge et vote formañon, ecri- 
vez votre premier programme BASIC en main d'une 
heure. D'une présentation claire, comportant de nom- 
breux diagrammes et Hustrations en couleur. Réf. 105 
PRIX : 108 F 


C2) UNVERS DU PCW 

Patick LEON 
Environnement matériel, commande de CP/M 3.0, le 
BDOS, le BIOS, fichiers binaires, éditeur de disquet- 
tes, désassembleur Z80, graphismes, caractère à la 
loupe. PRIX : 119 F 


C1 Nouveau ! COMPILATION CPC n° 1, 2, 3, 4 
PRIX :70F 


Ci-joint un chèque libellé à l'ordre de : BRETAGNE EDIT' PRESSE. Retournez le(s) bulletin(s) ou une photocopie à : 
BRETAGNE EDIT' PRESSE - La Haie de Pan - 35170 BRUZ - tél. 99.57.90.37 


La célèbre loi de Murphy qui affirme que 
si vous laissez tomber par terre une bis- 
cotte que vous venez de recouvrir de 
confiture, elle tombera toujours sur la 
confiture, s'applique aussi malheureuse- 
ment à l'informatique. Ainsi, prenant 
votre courage à deux mains, vous déci- 
dez de taper un long programme de CPC 
et absorbé par votre travail, les Ko s'ac- 
cumulent dans la machine sans que vous 
pensiez à effectuer des sauvegardes 
intermédiaires sur cassette ou sur dis- 
quette. Pourtant, vous savez qu'il faut le 
faire ! Et voilà qu'à moins d'un Ko de la 
fin, survient une panne de courant qui f.. 
tout votre travail en l'air ! 

La solution technique à ce genre de pro- 
blèmes, consiste à utiliser un onduleur 
qui détecte les micro ou les maxi coupu- 
res de courant et génère immédiatement 
les 220 volts qui alimentent votre 
machine. Malheureusement, les ondu- 
leurs, essentiellement utilisés par les pro- 
fessionnels, coûtent plus cher que votre 
Amstrad. 

C'est pourquoi la société PETREL Infor- 
matique a développé les modules de sau- 


BANC D'ESSAI 


vegarde MICROSAVE, qui bien que ne 
remplissant pas exactement les mêmes 
fonctions, vous éviteront néanmoins de 
perdre votre travail en cours. 

L'astuce de Microsave consiste à ne 
générer que les 5 volts qui seront néces- 
saires au bon fonctionnement du micro- 
processeur et des mémoires. L'absence 
de 220 volts vous privera bien entendu 
de l'usage de votre écran, mais au moins 
le contenu des mémoires sera préservé 
intact pendant une période de 20 à 45 
minutes suivant le modèle choisi. On 
regrettera qu'il soit impossible de sauve- 
garder le travail en cours sur disquette 
durant la panne de courant, mais un nou- 
veau modèle doté de cette fonction est 
actuellement en cours de développe- 
ment, de même qu'un modèle pour com- 
patibles PC. 

Le principe de fonctionnement de l'ap- 
pareil est très simple : un transformateur 
délivre une basse tension qui est redres- 
sée, filtrée et stabilisée pour entretenir 
la charge d'une batterie. Un circuit élec- 
tronique effectue la commutation auto- 
matique sur l'énergie de secours et 


assure la protection contre les anomalies 
de fonctionnement. 

L'appareil se présente sous la forme d'un 
petit boîtier en matière plastique muni 
d'un cordon secteur et d'un cordon d'ali- 
mentation en basse tension dont l'extré- 
mité vient s'insérer sur la ligne 5V de l'or- 
dinateur entre le moniteur et l'unité cen- 
trale. À noter qu'un second cordon est 
livré avec l'appareil lui permettant d'as- 
surer la même fonction avec un PCW. 
La face avant comporte une Led verte 
indiquant la charge correcte de la batte- 
rie et une Led rouge indiquant la pré- 
sence de la tension de secours. 

On y trouve également un bouton pous- 
soir qui a pour rôle d'éviter de déchar- 
ger inutilement la batterie lorsque l'on 
débranche l'appareil. 

Quant à la mise en œuvre de Microsave, 
elle n'appelle aucun commentaire parti- 
culier. C'est le type même d'appareil que 
l'on branche une seule fois et que l'on 
oublie pour pouvoir travailler en toute 
sérénité. 


Marcel LEJEUNE 
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BANC D'ESSAI 


PASTEL 


Denis BONOMO 


Vous avez créé un serveur 


et un éditeur de pages 


Vidéotex vous ferait 


plaisir ? Ne pleurez plus, 


PASTEL est fait pour vous ! 


Pour avoir testé plusieurs 


produits de ce genre, nous 


croyons pouvoir affirmer 


que c’est certainement le 


meilleur. 


LAATAL mi CARACTER 


MODE 


ee M MONTE (Et ns 


Fu 
, ES Tran 
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PASTEL est un logiciel permettant de 
créer des pages Vidéotex qui seront, par 
la suite, utilisables par votre logiciel 
serveur. Mais PASTEL est également 
capable de récupérer des images 
digitalisées (ou des pages écran) pour les 
transformer en images compatibles avec 
la norme Vidéotex, et c'est là que se 
situe son gros avantage. Imaginez une 
vue digitalisée de votre bonne vieille 
ville. Rien de mieux pour attirer les visi- 
teurs au syndicat d'initiative ! 


PASTEL relie l'AMSTRAD au minitel par 
l'intermédiaire d'un cordon qui se 
branche sur la sortie imprimante. Il existe 
une version capable d'exploiter les 
possibilités de la RS232 et une autre 
utilisant la prise cassette du CPC. Toutes 
les commandes disponibles apparaissent 
sur l'écran de l'ordinateur. Au début, on 
est un peu perdu devant leur nombre 
mais, après quelques minutes 
d'utilisation, on découvre rapidement 
toute la simplicité de PASTEL. La notice 
(qui aurait gagné à être plus détaillée) 
deviendra vite inutile. 

Le clavier de l'AMSTRAD se décompose 
en 4 parties : les touches alphabétiques 
(permettant d'entrer du texte), les 
touches numériques qui, utilisées avec 
CTRL, donnent accès au choix des 
couleurs-de fond et de caractères ; les 
touches du pavé numérique aux 
multiples fonctions et celles de 
déplacement du curseur. 


Ecrire en double hauteur clignotante est 
aussi simple à faire qu'en taille normale. 
PASTEL permet le travail ‘‘plein écran’ 


ou sur une fenêtre. On peut ainsi 
incruster un texte sur une image 
existante. Le curseur du minitel est géré 
automatiquement par le logiciel. Si vous 
désirez le positionner manuellement, 
PASTEL vérifiera que l'emplacement 
choisi est compatible avec la présence 
d'attributs Vidéotex. 

Pour faciliter le travail, PASTEL met à 
votre disposition 2 pages. Celle qui est 
en réserve pourra être rappelée à tout 
instant : elle peut servir de sauvegarde 
à un travail effectué antérieurement. 
Les fichiers acceptés par PASTEL sont 
de 3 types : écrans digitalisés (4 couleurs 
mode 1, 16 ou 17 Ko de volume), 
images produites par le logiciel lui-même 
(3 Ko maximum) et images minitel 
écrites par PASTEL et utilisables par 
votre serveur. À noter que PASTEL 
permet de charger une fenêtre à un 
endroit quelconque de l'écran minitel, 
pour peu que la place disponible le 
permette. Enfin, PASTEL est également 
capable de produire des petites 
animations. 

Outre le fait qu'il soit tout seul dans sa 
catégorie à offrir la transformation 
d'images digitalisées en images 
Vidéotex, PASTEL séduira l'utilisateur 
par sa grande facilité d'emploi. A 
posséder impérativement si vous avez 
des activités télématiques ! 


ADDITIF AU BANC D'ESSAI DE PASTEL 


Il'existe un petit problème dans PASTEL lorsque l'on veut charger, pour la trans- 
former en format vidéotex, une image sauvegardée en Mode 1 de longueur 17 Ko. 


On obtient invariablement le message ‘‘fichier inadéquat' 


". Pour faire disparaître 


ce défaut, il suffit de connaître la petite astuce suivante, qui consiste à charger 
l'image et à la sauvegarder sur le disque de sorte qu'elle ne fasse plus que 16 Ko. 
(Rassurez-vous, elle ne perd rien au passage). Cette image 16 Ko est alors entiè- 


rement utilisable par PASTEL. 


Pour faire maigrir en un instant l'image 1 Ko, il suffit de lui faire subir la thérapie 


suivante : 


10 MODE 1 
20 LOAD “IMAGE” 
30 SAVE ‘IMAGE, 


B, 49152, 16256 


où “IMAGE” représente, bien entendu, le nom de l'image. 


Banc d'en 


UTILITAIRE 


L'INTERPRETE 
E.S.A.T SOFTWARE 
Utilitaire 


Les jeux d'arcade en anglais ne 
posent pas souvent de problèmes 
de compréhension. Un joystick 
correctement branché et un bon 
tour de main sont les principaux 
atouts du joueur. En revanche, les 
amateurs de jeux d'aventures sont 
moins gâtés : la barrière 
linguistique est un obstacle au 
plaisir du joueur. Une traduction 
serait la bienvenue, si de plus, elle 
pouvait s'effectuer définitivement 
sur le programme lui-même, ce 
serait l'idéal. 


SON VIDÉO 


AQUITAINE 


ATARI 


amsrrao  @RIC 


OLIVETTI 


GC commodore 


Compatibles IBM 


31, cours de l’Yser 

33800 BORDEAUX 
Tél.: 56.92.91.78 
Télex 572-421 


L'Interprète se propose de vous 
aider dans cette tâche difficile. Je 
vous arrête tout de suite : n'allez 
pas croire que le programme va 
faire le travail tout seul, qu'il 
possède un dictionnaire anglais- 


français incorporé. Pas du tout : 


l'interprète est un éditeur 
perfectionné de secteurs. 

L'écran se pare d'une barre de 
menus où l'on trouve les titres 
suivants : ESAT, OPTIONS, 
DUMPER, STOCKER, ANALYSER. 
Je passe rapidement sur ESAT et 


‘OPTIONS (catalogue, couleurs et 


quitter}, qui sont les hôtes 
habituels des programmes 
utilitaires. 

Pour démarrer, choisissez l'option 
DUMPER. C'est en effet cette 
dernière qui va vous permettre de 
connaître le contenu du disque. || 
suffit pour effectuer votre choix 
de vous déplacer dans le menu 
grâce aux touches fléchées, 
l'option apparaîtra alors en vidéo 
inverse. || ne vous reste qu'à 
appuyer sur ENTER pour faire 
apparaître un menu déroulant. Le 
dump de secteur peut se faire sur 
un programme dont le nom figure 
au catalogue ou bien sur un 
secteur déterminé. Les codes sont 
alors affichés sur écran ou sur 
imprimante. Une sous-option 
“TURBO”, n'affiche que les 
symboles dont les codes ASCII 
sont supérieurs à 32 et inférieurs 
à 127, ceci permet un gain de 
temps et de papier. Le secteur 
affiché en ASCII est modifiable 
directement. Seulement, si la 
phrase à traduire est présente 
plusieurs fois ou si vous pensez 
que le disque contient d'autres 
phrases semblables, il est 
préférable de choisir l'option 
ANALYSER. Celle-ci permet la 
recherche et/ou le remplacement 


| d'une chaîne par une autre. 


La recherche peut être limitée à un 
certain nombre de pistes, et peut 
être multi-passes ou non. (le 
programme s'arrête dès qu'il a 
trouvé la chaîne ou il continue 
pour chercher la suivante). 
Quelques contraintes : la chaîne 
doit posséder au moins 3 
caractères, et doit être de même 
longueur que sa remplaçante. || 
existe heureusement des jokers 
tels que  (arobas) ou | (barre des 
RSX). Le premier permet d'insérer 
des caractères dont le code ASCII 
est inconnu, le second décale un 
message de 3 octets vers la 
gauche. 

On trouve également une 
instruction !{x} permettant 
d'effacer les messages superflus. 
La dernière option : stocker, otfre 
la possibilité d'une recherche sur 
plusieurs chaînes. Il vous suffit 
d'entrer à la suite plusieurs 
messages. (60 maximum, 40 
caractères}, puis de choisir 
“"SLANCER"" pour déclencher la 
recherche et le remplacement des 
chaînes sur tout le disque. 
L'Interprète ne porte pas bien son 
nom puisqu'il n'effectue pas de 
traduction d'un langage vers 
l'autre. Malgré tout, il reste un 
bon utilitaire pour tous ceux qui 
veulent triturer leurs programmes. 


ZENITH 
E.S.A.T SOFTWARE 
Utilitaire 


Malgré certaines baisses de prix et 
autres promotions sporadiques, les 
disquettes 3 pouces sont 
considérées par bon nombre 
d'utilisateurs comme trop chères. Il 
reste alors la solution d'un retour 


vers la cassette, avec tous les 
inconvénients que cela entraîne. 
(Le temps de chargement par 
exemple). Une autre réponse 
possible est l'économie des 
disquettes : on enregistre le 
maximum de programmes par face. 
Dans ce cas, il est préférable que 
la taille des fichiers soit la plus 
réduite possible. Zénith est un 
compacteur universel. C'est-à-dire 
qu'il trouve les fichiers BASIC et 


| binaires. L'écran de présentation 


vous offre deux options : 
compactage d'écran et compactage 
de programme. La première option 
vous demande tout d’abord 
d'entrer le nom du fichier écran, 
puis les 16 couleurs composant la 
palette. (si vous les connaissez 
bien sûr !). La particularité de 
Zenith est de permettre le 
“chaînage”’ de plusieurs fichiers. 
L'écran peut ainsi, après 
décompactage, Tharger un 
programme principal. La démarche 
utilisée pour les programmes est la 
méme. 

L'idée de base est certes 
intéressante mais il ne faut pas 
attendre des miracles du 
compacteur, certaines images 
complexes gardent leur 17 Ko. 
Partois même des programmes 
binanes et Basic courts se voient 
augmenter de quelques octets ! 
Mais cela n'est pas très grave 
Plus ennuyeuse est la quasi 
impossibilité (en l'état actuel du 
inanuel) de recharger des 
programmes BASIC compactés. De 
plus, si le premier fichier n'est pas 
une page-écran, il va vous falloir 
réinitialiser la ROM-disque grâce à 
un petit programme livré dans le 
manuel. Ce dernier est d'ailleurs le 
point faible de l'ensemble, il 
gagnerait à être plus détaillé et 
plus clair 


ph 


Micronaute 


LE SPECIALISTE 


NANTAIS DU PC 


Revendeur qualifié conseil 


Me S.A.V. personnalisée 
e Contrat de maintenance 
. Logiciels Livres 
e Location 


M Adresse : 
9, rue Urvoy de Saint Bedan 
44000 NANTES 
Tél. 40.69.03.58 


AMIS DU LOTO 


ne gaspillez plus votre mise 1 


Jouez “malin” avec 


LOTO- INFORMATIC 


j 


nalys ses 


DOC + CADEAU TRES UTILE 
pour la confection de vos 
4 iinbres à 


grilles contre 


INFORMATIC Applications 
BP N°78 


- 67800 BISCHEIM 


EDUCATIF 
GRAPHOFRANCE 


Patrick LEFEVRE 


AC 


Apprendre la géographie de la France en s'amusant, voilà qui 
devrait permettre aux élèves de progresser rapidement ! Le jeu con- 
siste à retrouver, avec précision, la position d’une ville sur la carte. 
Il se pratique au joystick ou, plus simplement, avec les touches de 
curseur du clavier. La règle du jeu est dans le programme. 


Votre noyenne 19/20 


Pouvez vous situer,,,, 
MONPELLIER ? 


TRES BIEN 


Vous etes à 8 kilonetres 
Votre note 20/20 


19 REM RÉ R INR RM IERHN HE HE EN ER O EEE N E 


20 REM *# * 
SOCREM IE COR ALRAHNOC FR ARMAPNMENE 1% 
40 REM  * LS 
90 KEM  * par # 
60 REM + x 
79 REM + Patrick LEFEVRE * 
80 REM + Li 
FOLREMONX Copyright 1986 * 
100 REM + * 
110 REM 666 6 ME EE DE DE DEN DE DE HE DE DD DEEE DE DEN HE 
Ke As 


150 REM XX MEME EDEN DEEE 


140 KEM initialisation 
150Q REM #26 MEME DE DE DEN DE 


78 


GRAPHOFRANCE 


189 

L7OLSPEED KEY 40:05 

180 CLEAR s 

190 ‘SYMEOL AFTER &FO 

200 SYMEOL LFF,&SC, toé6,2%C5,%99,%99,&C3, & 
bb, HEC 

210 ng=10:" Nb de quesions posees. Feut- 
etre modifie jusqu'a 87 

220 DIM nv$(87) ,xv(87),yv(87) ,essing) 
2SOVINETSL IS; LL 

240 FAFER O:HORDER 4 

250 FEN 1 

260 ” 

270 REM HKHXHH HUMMER MEN 

KEM presentation 

REM HERO SE 


GOSUE 2350 

CALL &A000 

LOCATE 17,4: FRINT'"presente" 

FOR 1=0 TO 60:PLOT 260+1,210-—-5j,35 
DRAWR i—-(1#1),60+(2#j): j=)3+0.6 

NEXT 

j=0 

FOR:1=6010"0:STEP —=1:PLOT -320%71,2710 
DRAWR i-(1#i),60+(2#j):)=)+0.6 

NEXT 

FEN 2:LOCATE 15,17:PRINT"GRAFHOFRKANC 


FEN 1:LOCATE 20,19:FRINT"OU" 

470 LOCATE 5,21:FRINT"comment apprendre 
1a geographie" 

440 LOCATE 15,22:PRINT'"'en s'amusant." 
450 GOSUH 2560 

4860 LOCATE 8,25:FAPFER 1:PEN 3:PFRINT CHR$ 


(24) "J"'CHRK$ (24) "=;Jeu "CHKS$S (24) "I"CHKY 
(24) "=>;Instructions" 

470 FAFER O©:FEN 1 

480 xP=UPFERS(INKHEYS):1F x$="" THEN 480 


490 IF x$="J" THEN GOSUK 810 
500 IF xb="1" THEN GOSUB 540:G0T0 810 
510 GOTO 480 


SÉO KEM HHHHEHEOUEOHEMEDEEEEEE 
540 KEM 


INSTRUCTIONS 
5950 REM 4H ME MEME EEE EEE EE 
Tete TE 


970 MODES 

580 LOCATE 34,5:PRINT'"INSTRUCTIONS" 

9590 LOCATE %4,6:PRINT"============" 

600 LOCATE 1,10:PFKRINT" Ce jeu consiste 

a retrouver la position geographique d'u 

ne ville sur la carte" 

619 PFRINT'"'de FRANCE. Four cela il suff 

it de deplacer un point a l'aide des ff 

leches du 

620 FRINT'"curseur ou du joystick et de 
le positionner sur l'endroit presume. 

Confirmez" 

650 PRINT'"votre position en appuyant sui 
‘COPY ou: sur, "FEU. 

640 PRINT"Vous avez droit a un essai par 


question. 

650 FRINT"Si vous tombez sur la ville ou 
en etes tres proche vous aurez 20/20." 

660 FRINT'"'Plus vous tomberez loin moins 

vous marquerez de points." 

670 FRINT"Vous serez questionne sur";n 

g;'"villes. Votre moyenne s'affichera a 

uw furet. a" 

680 PFRINT'mesure de vos reponses." 

690 FRINT'Et maintenant regardez bien la 
carte. Essayez d'identifier le maximum 

de villes" 

700 FRINT'Lorsque vous en aurez assez ap 

puyez sur une touche et EHONNE CHANCE. " 

710 LOCATE 28,24: PARINT"< Appuyer sur une 
touche >" 

720 CALL &BH18 

750. MODE :2 

740 orx=140:ory=10 

759 GOSUEB 1670 

760 enc=1i:GOSUR 1930 

770 CALL &EHB18 

780 RETURN 

® er 40 RE 

800 KREM #44 

810 REM jeu 

820 KEM ####% 

850 

840 orx=270:0ory=10:ques=1:nota=0 

850 enc=0:GOSUR 19530:MODE 2 

860 ‘ dessin des fenetres 

879 ORIGIN 0,0 

880 FLOT 0,0,1:DRAW 0©,48 

890 PLOT O,53:DRAW 0,268 

900 FLOT 0,272: DRKAW 0,350 

910 PLOT 0,355:DRAW 0,599 

920 FLOT 252,0:DRAW 252,48 

950 FLOT 252,53: DRAW 252,268 

940 PLOT 252,272: DRKAW 252, 350 

JaOoLPLOT, 252;3559:DRAN:252,399 

960 PLOT 257,0:DRAW 257,599 

970 PLOT 659,0:DRAW 639,399 

980 FLOT O©,0:DRAW 252,0 

990 FLOT O©,48:DRAW 252,48 

1000 FLOT Q,53:DRAW 252,53 

19010 PFLOT 257,0:DRAW 659,0 

1020 PLOT 0,399: DKAW 252,399 

1030 PFLOT 257,599:DRKAW 639,599 

1040 PFLOT 0Q,355:DRAW 252,359 

1050 FLOT O,3550:DRAW 252, 350 

1060 PLOT 0,272:DRAW 252,272 

1070 FLOT ©,268:DRAW 252,268 

1080 GOSUR 1670 

1090 ‘ presentation 

1100 WINDOW #1,34,79,2,24: WINDOW #0,2,3i 
525 24: WINDOW #2,2,31,10,21 

1110 LOCATE 8,1:FRINT CHK$(24)" GRAFHOFRK 

ANCE "CHR$ (24) 

1120 LOCATE 5,4:PRINT "Pouvez vous situe 

A a 

1130 LOCATE 4,23:PRINT CHR$(24)" Q U E S 
TASE AO UN 1 "CHR$ (24) 

1140 ‘ tirage au sort ville 

1150 RANDOMIZE TIME:sort=INT(RNDx87) 


79 


1160 ess(ques)=sort 

1170 FOR i=1i TO ques-1 

1180 IF sort=ess(i) THEN 1150 

1190 NEXT 

1200 ‘ pose question 

1210 CLS #2 

1220 LOCATE 1,6:FRINT STRING$ (27,32) 
1230 LOCATE INT(27-LEN(nv$(sort)))/2,6:P 
RINT nv$(sort):;" 7" 

1240 GOSUR 2170 

1250 PEN #1,0:PRINT #1,REMAIN(1) 

1260 ‘ traitement reponse 

1270 ORIGIN O+orx,0+ory 

1280 xt=xv(sort)#3:yt=yv(sort)#z 

1290 dis=SQR((xt-xcur) *2+(yt-ycur) 72) #2. 
7S 

1500 LOCATE #2,1,35 


1310 IF dis<é THEN FRINT#2," EX 
CELLENT'":GOTO 1440 
1320 IF dis<1ii THEN PRINT#2," T 


RES BIEN":GOTO 1440 

1350 IF dis<?21 THEN FRINT #2," 
BKAVO":GOTO 1440 

1340 IF dis<30O THEN PRINT #2," 
BIEN":GO0OTO 1440 

1550 IF dis<40 THEN PRINT #2," 

PAS MAL'":GOTO 1440 

15360 IF dis<50 THEN FKRINT #2," 

JUSTE HON'":GO0OTO 1440 

1570 IF dis<6O THEN FKRINT #2, "UN PEU DE 

CONCENTRATION QUOI !":GOT0 1440 


15:80 IF dis<890 THEN FKRINT #2," CE FOU 
RRAIT ETRE MIEUX":GOTO 1440 
1390 IF dis<120 THEN FRINT #2," PL 
UTOT MOYEN NON !":G60T0 1440 
1400 IF dis<i60 THEN PKRINT #2," VOUS 


DEVEZ CONFONDRE" :GOTO 1440 

1410 IF dis<240 THEN FRINT #2,"NE REFOND 
EZ FAS N'IMPORTE QUOI":GOTO 1440 

1420 IF dis<320 THEN PRINT #2,"SI VOUS 
VOUS MOQUEZ DE MOI J'ARRETE TO 
UT'":G0OT0O 1440 

LASOPRINTH2 "VOUS ETES SEIR M 'OQUEGCSES 
T EN FRANCE " 

1440 LOCATE #2,7-LEN(STRS# (INT (dis))),6:F 
RINT#2, "Vous etes a"; INT (dis); "kilometre 
s" 

1450 IF dis>400 THEN dis=400 

1460 note=CINT{(400-dis)/20) 

1470 LOCATE #2,8,8:FRINT #2, "Votre note 
"S:PRINT #2,USING"##";note;:PRINT #2,"/2 
o" 

1480 nota=nota+tnote:moy=nota/ques 

1490 LOCATE 6,1:FRINT "Votre moyenne ";: 
PRINT USING"##";moy;:PRINT "/20" 
1500 ques=ques+i 

1510 FLOT xt-1,yt:DRAW xt+1,yt:PLOT xt,y 
t—-2: DRAW xt,yt+2 

1520 LOCATE #2,5,12:PRÎNT #2,"< Appuyer 
sur espace >" 

1530 IF INKEY(47)=0 THEN 1550 

1540 GOTO 1530 

1550 LOCATE 1,6:PRINT STRING$S(27,32):CLS 
#2? 


80 


GRAPHOFRANCE 


1560 IF ques<ng+i THEN LOCATE 24,253:PRIN 

T CHR$S (24) ;USING"##"; ques; : PRINT CHR$#& (24 

);:CLS #1: GOSUR 1670:GO0OT0 1150 

1570 LOCATE 1,4:PRINT STRING#S(27,32) 

1580 LOCATE 1,6:PRINT STRING$(27,32) 

1590 LOCATE 10,4:FRINT"C'est fini” 

1600 LOCATE 7,6:FRINT'"Une autre (O/N) 7?" 

1610 rep$=UPFERS$S(INKEY#):1IF rep$="" THEN 
1610 

1620 IF rep$="0" THEN GOTO 820 

1650 IF rep$="N" THEN INK 1,24:PEN 1:MOD 

E 2:END 

1640 GOTO 1610 

26707 

1660 REM 436366 EE MED DE DEEE JE DEN NE 

1670 REM trace de la carte 

1680 REM HOMME DEN DE NE UE 

1490 

1700 ‘ pourtour 

LAON 

1720 RESTORE -2720:z=0 

1750 READ a,b 

1740 IF a=8FF THEN 1800 

1750 a=a#3:b=b#3z 

1760 IF z=0 THEN ORIGIN atorx,b+ory:z=i1i: 

GOTO 1730 

1770 DRAWR a,b 

17980 GOTO 1730 

179707 
1800 ‘ 
1O10E; 
1820 RESTORE 2940: z=0 

1850 READ a,b 

1840 IF a=8&FF AND b=4FF THEN 1900 

1850 IF a=&FF THEN z=0:6G0TO0O 1830 

1860 a=ax3:b=bx3 

1870 IF z=0 THEN MOVE a,b:z=1: GOTO 1830 
1880 DRAUWK a,b 

1890 GOTO 1830 

1900 RETURN 

190%" 

1920 REM #46 EE DEEE EEE DEEE 

1950 REM dessins des villes 

1940 REM #4 HEEMECMEMECMEDEDE DEMO DEEE 

1950: 

1960 IF enc=1 THEN 2050 

1970 MODE 2:LOCATE 24,12:PRINT'"'QUELQUES 

SECONDES /DECFATIENCE.::7" 

1980 TAG 

1990 MOVE O,64:DRAW 6:9,464 

ZQ000 FOR i=0 TO 650 STEP 2 


fleuves 


2010 MOVE 1,80 
2020 PRINT." ""EHRS (250); 
2030 -NEXT 


2040 TAGOFF 

2050 ORIGIN O+orx,O0+ory 
2060 RESTORE 3060 

2070 FOR i=0 TO 86 


2080 READ xv(1),yv(i) ,nv$(i) 
2090 X=XV(1)#3:y=yv(1) #3 

2100 IF enc=0 THEN 2150 

2110 FLOT x-1,y,enc:DRAW x+1,y 
2120 PLOT x,y-2:DRAW x, y+2 
2130 NEXT 


27140 
2150 
2160 
2470 
2180 
2190 
2200 


RETURN 


REM #62 06 DD DE DE DE DEEE DE 


deplacement du point 
REM + KM MEN DEN MEN HE NE 


REM 


, 


EVERY 50,1 GOSUKR 2520 
EVERY 50,1 GOSUR 2530 


ORIGIN O6+orx,O0+ory:xcur=200:yeur=20 


IF INKHEY(8)=0 OK INKHEY(74)=0 


cur=xcur-i 


2240 


IF INKHEY(12=0 OK 


cur=xcur+i 


2250 IF INKEY(2)=0 OR INKEY(75)=0 
cur=ycur-i 
2260 IF INKEY(O)=0 OR INKHEY(72)=0 


cur=ycur+1 


2270 
320 

2280 
F1 
2290 
ur+1 
2500 
2510 
2520 
23550 
2340 
23550 
2360 
2370 
2380 
2599 
2400 
2410 
2420 
2450 
2440 
2450 


10:FRINT "Verifiez 
ne L. 


2480 
2470 
2480 
2490 
2500 
2510 


2520 


2550 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2650 
2640 
2650 
2660 


IF INKEY(9)=0 OR INKEY(76)=0 


INKEY (75) =0 


THEN 


THEN 


THEN 


THEN 


THEN 


* 


x 


Y 


> 


72 
a 


PLOT xcur-2,ycur-1,0:DRAW xcur+2, yc 


PLOT xcur+2,yceur+1,0:DRAW xcur-2,yc 


PLOT xcur-1,ycur,1:DRAW xcur+i,ycur 


GOTO 2250 
PRINT CHR$ (7) : RETURN 


REM 266066 De DEEE HD EEE 
REM ecriture message 
REM HE EE NE 
RESTORE 5290 
FOR i=%A4000 TO %A033 
READ a$ 
a=VAL("&"+a$) 
tot=tot+a 
POKE i,a 
NEXT ji 


IF tot<>&i178 THEN MODE 2:LOCATE 1, 


M. 11 y a une erreur. ":PRINT:LIST 
250-3350 


RETURN 


REM #6 EEE 
REMMPETE LAC 
REM EUX 


SOUND 1,500,2,15:RETURN 
SOUND 1,2000,2, 15: RETURN 


REM HER X 
REM musique 
REM HEURE NE 


RESTORE 5410 

READ r,s 

IF r=-1 THEN RETURN 
SOUND 1,r,s*0.5 
SOUND 2,0.5*r,S*0.5 
SOUND 4,0.25%r,Ss*0.5 
GOTO 2600 


les DATAS de la routi 


D 4 


> 


2670 REM #42 206 EE EME NEE HEDEDEDEX DEN N 
2680 REM DATAS pourtour FRANCE 
2690 REM #44 66 EE EEE DE MED DE DE DEEE JE 
2700 ‘ 

2710 

ONACO 

LILZO DATA G6,07200,S, 1800, e0-5,00 2,141 
ARTE VE ESS SEE Pen ESS Ve Kg ET GE Pr 
2041, 1,4 05 ESS OL 00-070: 
LOS es ls Ulis dleos ele ON US ELU, 16 0 
Us La las ls Us lacets La DES, las Leds 
relaie ON IS 16 0-CG2 000201 
2730 

ESANCON 

21401DATA,0,2: 56:70 SAS, = 1 0 SU 
Hs 0ros 0r os 12 = 2 D ON TOOLS, 1201 0 
ss Vi gr 0.934841, 0, 1 OS IE US 003,2 
sens ONE SOLE RS OS De Ds US Dan ee OC) 
9-3, -1-9,0,-1,-1,-1,-1,-0.5,-1,0.95,0,1 
A pe CO es ALU ES 0 DO qe PU 0 AE LUE OM en Ps CERCLE 
2750 BESANCON 
—VERVINS 

2760 "DATA 0.1,-0,9,14,2,241%,r1,41,14.10. 540: 
SAT ler OST = 0-52, 08 4 SANS 
0,1.5,2,2.5,2,3,0,5,-5,-1,-1,0.5,-2,-0.5 
A nt EE RS EC En D ne EE 
Ds 130.0: 40,1, 1,-4,-1,-4.53,5,0,1,0235 
SOS OS RS PES 2 OS Jr, 20-2607 480 
LE 7 0 UE VERVINS- 
LE HAVKRE 

21800 DATA05,L1297-075 055016715106 50 
A nt 0 mc CEE PE 0 PPS TE 0 7 PSE EE GOT à 
rs LR LUS LL OO OS AS 
Is OO eee es -Dernle ere) Ends OST 
7.550.5,-1,-1.5,-0.5,-1.5,-2.93 09971093 
dire du ls, r0-9,1.9, 00-25 r01:9 

2790 LE HAVRE 
—MORLAI X 

2ÉGOPDATAN=-4:5,-5,=2,0, 20893-10093 0SS 
leds les Us 0, D, 049,000, 08105132 
-2,-0.5,-2,0.5,-1,0,1,-1,0,-2,2,-4,0,-6, 
9y51-93,-1.9,-2.5,0,-1,-0.5,-1,1,-1,0,-1.5 
sols Os ls ds 7270 os Les Ou las 0 dsl, 
ME 00, Jr, 01-09, 0,9, 000; "OS 0 
15930. 
2810 ‘ 
LORIENT 
POHLODATAt-0:5,- 0 SERA, 1-30 085,07 
S#2009:0:9, 74; -2,0;2%1%-005,2:5, 02546 
OO ER ds S0,000,5,05-0393,-0.3,:0,07570; 
OS 0-9 05139, -089.,-0,9,20,99-3793,0 
ns s2s rss ler eee, ls) O0 0 ON LS 
OR OL U. 59 1,0493070,-1,393,-1,5,-2,)1, 
Se 

LHSO 
ROCHEFORT 
SOROMPDATANO/S, 1: 5541.95 0004049, 04925 07S), 
-0.5,-0.5,0,0.5,-0.5,2.5,0,1,-0.5,-0.5,- 
OA SONT2 23-0008 070-100, OO AS 
-Legnlens- 0690 0 0-12 540, 210, 
EE PR 0 NT PS MNT 0 LA 0 Else ES 0 PS ere RÉ or BA 6 TS 
O$-1,95-029, 0,0, 149-097-0590 NO N7S, ET, 
DROLE 
2850 ‘ 


FRADES-M 


MONACO-B 


MORLAI X— 


LORIENT— 


ROCHEFOR 


81 


T-ARGELES 

2860 DATA 2,0,3,-4,1,-6,-1,4,-1,2,-1.5,1 
= de Æ 19, -2,-1,-2,0,-5,-0.5,-2,1. 
5,1,1,-1 -0.5,0.5,-1,-0.5,-0.5,-1, 
aa 1 1 Let ge, 


S,1.5,-2,3,0,0,-1.5,-1,-0.5,1,-1,1,0.5,0 


.5,-0.5,2,0,1,-1,2,0,0,-192,-1,1,0.5,2,— 
0.5 

2870 ARGELES- 
FRADES 

5980 DATA 0,-1,1:0,7,-0.5)1.5,0.5,0.5,-0 
.5,4,0,0,2,2,-0.5,0,-0.5,9,-1,0,-1,3,0,2 
7210, -0.5,2,0,2,0.5,2,-1:5,8f 

2890 


2900 REM #66 NE DE MEEDEDEDENEXE 
2910 REM DATAS fleuves 
2920 REM KHHKHHXEEMEIERXEXX 


2930 ‘ SEI 
NE 
2940 DATA -19.5,101.5,1,0,1,0.5,0,-0.5,1 
1110:%0:5,0,0,-2.5;1,1,1,0,0,-1,1.5,- 
1.5,0,0.5,0.5,0,0,-1,1,0,1,0.5,-0.5,-1,3 
-2.5,1,0.5,0.5,-0.5,2,0.5,0,-2,1,1,-1,- 
2,2,0.33,0,-3,2:5,-1,0 ,-1,1,0,0,0.5,3,0, 
5,1.5,2,0,0.5,-2,4,-4,3,-7,0.5,-4,8ff,0 
2950 ‘ LOI 
RE 


2960 DATA -41,69,4, 

-2.3,1.5, —0,3,5, o. EU No eo 
505-251,-2,0, 5,2, -0.5,2:5,-1,1.5,-2,0 
AT PRE NET RER A -2.5,2,-3,0,-4,-1 
DS ut ds OURS RES ELLES D 


2970 ‘ GARO 
NNE 

2780 DATA -29.5,37.5,0.5,-2,1,-1,1,-2,2, 
Mis eh, 1, -2,2,-1,1,-1,4,-1,3,-6,0,-3 
-2,-3, nt -3,-1,1,-2.5,0,-1,1,-0.5,%f 
f,0 

2990 ‘ RHO 
NE 

3000 DATA 32,55.5,-1.3,-1.5,0,-5,-2,-2,-— 


2,2.5,-2.5,-1,-0.5,-4,0,-4,1,-4,-1.5,-10 


50-5,-1.5,1,-.5,0,-2,-2,-0.5,0,-3,3,-4,- 
2,0,1,2,8FF,&FF 
3010 ‘ 


3020 REM #46 EEE EE 

3030 REM DATAS villes 

3040 REM MMM ME EME ME JEUNE MEN 

5050" 

3060 DATA 65,93,PAR1IS,41,97.5,CAEN,92.5, 
94 , BOURG-EN-BRESSE, 116,92, STRASBOURG, 36, 
37, BORDEAUX 

5070 DATA 96,15.5,MARSEILLE, 80,17.5,MONF 
ELLIER, 18,86, SAINT-BRIEUC, 88,56, MACON, 532 
935 79:93 SAINT=LO 

3080 DATA 25,70,NANTES, 96,62,LONS-LE-SAU 
NIER,32.5,54,LA ROCHELLE, 99,70, BESANCON, 
90,70,DIJON 

3090 DATA 36,22, MONT-DE-MARSAN, 57, 14, FAU 
:43,12.5,TARBES, 47, 18, AUCH, 58,7.5,FOIX 
3100 DATA 66, 11.5, CARCASSONNE, 70.5, 4,FER 
PIGNAN,67.5,112.5,ARRAS,75.5, 104, LAON, 71 
LI SS LITE 


5110 DATA 535,102,ROUEN,61.5,101, BEAUVAIS 
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523.9, 974.5, EVREUX, 44,48.5, ANGOULEME, 82.5 
574.5, CHALON SUR MARNE 

3120 DATA 100,97,METZ,99.5,91.5S, NANCY, 11 
1,84,COLMAR,5,81, QUIMPER, 28,81.5,RENNES 

3130 DATA 36,81,LAVAL,45.5,80,LE MANS, 44 
86, ALENCON, 68, 87. De MELUN, 38, 72.5, ANGERS 
3140 DATA 48.5,68, TOURS, 100, 76.5,VESOUL, 
56.5,86, CHARTRES, 90.5,91.5, BAR-LE-DUC, 17 
76, VANNES 

3150 DATA 76.5,7/76.5,AUXERRE, 90.5, 82, CHAU 

MONT, 112,22.5,NICE,58,57,NIORT,45.5,60,F 
OITIERS 

35160 DATA 29,60,LA ROCHE SUR YON,65,65,H 

OURGES, 72,62.5,NEVERS, 75.5,97, MOULINS, 58 
-3, 29.9, CHATEAUROUX 

3170 DATA 61,76, ORLEANS,55, 71.5, BLOIS, 46 
-.5, 28, AGEN, 56,29.5,CAHORS,64,21.5,ALBI 
3180 DATA 68,28,RODEZ, 66, 37, AURILLAC, 59. 
5,41,TULLE,54,49.5,LIMOGES, 49, 40,PERIGUE 
UX 

3190 DATA 71.5.46.5.CLERMONT-FERRAND. 84. 
42,SAINT-ETIENNE,89,48,LYON, 101,50,ANNEC 
Vs99753,46; LORRREEX 

De DATA 98,40.5, GRENOBLE, 102,351,6GAF,10 

26,DIGNE,86,21, RTE. 91522:5, AVIGNON 

ri DATA 77,51, MENDE, 00, 38, LE PON,475-349 
, PRIVAS, 92,36, VALENCE, 102,14, TOULON 

2220 DATA 55,18.5, TOULOUSE, 86, 105, CHARLE 
VILLE-MEZIERES,65,107,AMIENS, 60,553, GUERE 

T,80,686, TROYES 

3230 DATA 107,76, BELFORT, 102,84,EPINAL 

3240 ‘ 

32250 REM HE HEOMEHECMEOUMEHEOHEDEHEDEDE HE DE DEHE DEEE DE 

3260 KEM DATAS pour routine L.M,. 

2270 REM HHMMHEMHEOUMEHEOUNEOUEOUNEONE ME HE DEN MEME DE DE DEEE NE 
290% 

20 DATA SE C1, CD, O0E VC CD, LEE 

5300 DATA 21,15,A0,06,1F,7E,CD,S5A 

510 DATA: BB,25,10,rF9509,20,24, 20 

20 DATA 20,20,20,20,20,20,FF,20 

:30 DATA 20,50,61,74,72,69,63,6R 

3240 DATA 20,20, 40, 45,46, 45,56, 52 

33:50 DATA 45,20,20,FF 


3370 REM 46666 D EDEN 

32:80 REM DATAS musique 

2390 REM #4 MEME HE MEN DE HE NE 

5400 ‘ 

3410 DATA 478,050,579,050,3558,050,319,20 
O,000,005,319,050 

3420 DATA 478,050,379,050,358,050,319,20 
0,000,005,319,100 

5450 DATA 478,050,379,050,355 
0,379,100,478, 100 
35440 DATA 379,100, 
0,5:79,050,000,005 
3450 DATA 579,050,426,050,478, 159, 000,00 
76,09057/%; 100 

3460 DATA 319,100,000,005, 
0,000, 005,2358, 100 

3470 DATA 2579,050,358,050,319,100,579,10 
0,478,100,426, 109 

3480 DATA 478,200,000,005,478,050,000,00 
5,000,005,-01,0010 


8,050,319,10 


426, 200, 000,005, 426,05 


519,050,3558,15 


GEM SUR AMSTRAD PC 
par Digital Research 
168 pages -185 FF Réf. SIP 1 
Ce livre constitue une découverte complète et progressive du 
logiciel GEM et de ses principales applications GEM Point 
GEM Write GEM Graph et GEM Wordchart 

Des explications claires et pratiques permettront qux débu 
tants de mieux manipuler les disquettes GEM les fichiers la 
souris ils trouveront également des menus déroulants et toutes 
les abréviations et commandes de GEM utilisées 

Voici un ouvrage également indispensable pour mieux com 
prendre en quoi GEM et l'Amstrad PC peuvent résoudre des cas 
concrets en milieu professionnel ou Semi -protessionnel 


CLEFS POUR GEM SUR AMSTRAD PC 
par Daniel Martin 
288 pages - 195 FF Réf. SIP 2 


Voici un livre de référence pour les programmeurs avertis Sur 
Amstrad PC Ils pourront 

retrouver facilement les différents constituants de GEM 
(GEM VDI. GEM AES) 

étudier successivement le constructeur de ressources RCS 
la description d'un programme GEM. l'éditeur d'icônes, etc 

tirer profit des trucs et astuces très utiles donnés par l'auteur 
lis pourront enfin programmer leurs propres applications gra 
phiques sur ce magnifique outil qu'est GEM 


DOS PLUS SUR AMSTRAD PC 
par Daniel Martin - Collection Digital Research 
200 pages - 145 FF Réf. SIP 3 


Cet ouvrage s'adresse aussi bien aux débutants qu'aux utilisa 

teurs plus avertis cherchant des informations sur ce système 
d'exploitation DOS Plus sur Amstrad PC est une découverte 
complète et progressive de ce logiciel permettant de faire tour 

ner des programmes sous MS DOS ou CP/M 86 Après une pré 

sentahion générale de l'Amstrad PC, les premiers chapitres qu 
livre constituent une approche de DOS Plus (opérations sur les 
fichiers, fichiers batch, éditions de textes. etc ) La deuxième 
porte de l'ouvrage approtondit les caractéristiques les plus 
évoluées de DOS Plus (utilisation approfondie des répertoires 
programmes d'arrière plan, gestion de | imprimante. etc 


FONCEZ AVEC L'AMSTRAD PC 1512! 
Cedic/Nathan 

par Brian C. Thomas 

208 pages - 98 FF Réf. SIP 4 


Cet ouvrage de l'Amstrad PC 1512 est conçu comme un quide 
de l'utilisateur indispensable lors de l'achat du matériel 
L'utilisateur y trouvera un chapitre Spécial sur le MS DOS sur la 
communication, sur le Basic 2, sur les logiciels. Sur les exten 
sions et périphériques additionnels, etc 


GESTION SUR AMSTRAD PCW 
par J-M Jego et J-M Gargadennec 
240 pages -175 FF Réf. SIP5 


Découvrez progressivement sur votre Amstrad 3 logiciels com 
plémentaires Locoscript dBASE Il et Muihiplan Ce hvre vous 
propose des modèles et des tableaux de bordcommentés Vous 
pourrez les adapter à votre propre contexte si vous êtes com 
merçants ou travaillez dans une PME 


CLEFS POUR AMSTRAD PCW 
par Jean-Jacques Weyer 
240 pages - 215 FF Réf. SIP 6 


Voici un livre complet et indispensable, d'utilisation simple et 
pratique pour l'utilisateur de l'Amstrad PCW 

I! détaille tout ce que vous dvez besoin de savoir sur le Basic Mal 
lard Locoscript (logiciel de traitement de texte du PCW) Multi 
plan, dBASE Il et CP/M Pius 

l'auteur a développé pour chaque applicationles diverses com 
mondes illustrées d'exemples concrets, les fonctions et opéra 
teurs, les messages d'erreur, etc 


ss DE 
mm” 


BON DE COMMANDE 


17, rue Russeil 44000 NANTES 


Frais de port en sus: 25F 


Nom 
Adresse 


À renvoyez avec votre règlement à STAMP DIFFUSION, 


Ci-joint mon règlement par chèque ou mandat 


Prénom 


AMSTRAD A L'ECOLE 
par D. Nielsen et A. Garcia-Ampudia 


232 pages - 120 FF Réf. SIP 7 
Cet ouvrage, destiné aux parents, élèves et enseignants, est 
conçu pour aborder ou réviser les matières principales des 
classes du primaire le calcul, le français et l'éveil 

21 programmes d'enseignement sont proposés aux lecteurs 
ainsi qu'un cahier de vacances qui permettra aux enfants de 
concevoir eux mêmes de petits programmes 


CREATION ET ANIMATIONS GRAPHIQUES 
SUR AMSTRAD 
par Fouchard et Corre 
128 pages -110 FF Réf. SIP 8 
Vous apprendrez, grâce à ce livre, à créer des images telles 
qu'un pinceau. un aérographe, à animer vos dessins avec des 
scrollings. des inversions ou des reconstitutions d'image point 
par point, ceci à l'aide dela souris et dela manette dejeu Les pro 
grammes sont écrits en Basic et en assembleur 
À vous ensuite de réaliser vos propres ‘bandes dessinées élec 
troniques” 


TROIS ÉTAPES VERS 
L'INTELLIGENCE ARTIFICIELLE 
SUR AMSTRAD CPC 
par R Descamps 
280 pages - 160 FF Réf. SIP 9 
Informaticien ou non, découvrez trois tacettes de l'intelligence 
artificielle à travers des exemples simples et pratiques et 
27 programmes en Basic qui utihsent toutes les ressources de 
l'Amstrad Apprenez à votre ordinateur à simuler un pilote auto 


matique. à jouer contre lui-même et créez vos propres systèmes 
experts 


RSX ET ROUTINES ASSEMBLEUR 
SUR AMSTRAD CPC 
par D Roy et J.-J. Meyer 
368 pages - 200 FF Réf. SIP 10 
Voici un manuel de programmation en assembleur Z 80 En deux 
parties distinctes, l'une sur le graphisme. l'outre sur les mathé 
motiques, l'ouvrage présente de nombreux programmes 
assembleur. largement commentés et expliqués Unouvrage de 
haut niveau 


TURBO PASCAL SUR AMSTRAD 
par P. Brandeis et F. Blanc 
224 pages - 135 FF Réf. SIP 11 


Ou comment maîtriser progressivement ce langage Comment 
installer des programmes en Assembleur à l'intérieur des routi 
nes Poscol Retrouvez dans ce livre toutes les instructions expli 
quées et illustrées 


AMSTRAD 3D 
por J.-P. Petit 
264 pages - 195 FF Réf. SIP 12 


Celivre propose un programme Basic pour créer des formes, les 
dupliquer, les réduire ou les agrandir. et surtout pour les vision: 

ner sous différents angles entrois dimensions (hauteur largeur. 
pr'otondeur) Un menu presente toutes les manipulations possi 

bles. et tous les dessins se font à partir du clavier (nul besoin de 
manette de jeu ou de souris) l'ouvrage est abondamment 
illustré de dessins et de copies d'écron 


Pour votre CPC 


GRAPHISME EN ASSEMBLEUR 
SUR AMSTRAD CPC 
par F Pierot 
304 pages - 145 FF Réf. SIP 13 


Pour créer des graphismes très variés (tracé d'histogrammes, 
dessin d'un paysage, création d'une corne d'abondance) tout en 
exploitant toutes les possibilités graphiques de votre CPC 

Si vous êtes débutant en assembleur, vous pourrez progresser 
grôce à des routines prêtes à l'emploi livrées sous la double 
forme d'un programme Basic et d'un listing assembleur 


LE LIVRE DE L'AMSTRAD 
par D. Martin et P. Jadoul 
256 pages - 120,00 FF Réf. SIP 14 


Une étude complete des circuits et de la structure interne de 
Amstrad, ses fonctions et les instruchons mal connues du 
Basic (VARPIR ). une présentation détaillée des RSX pour 
ajouter de nouvelles commandes au Basic et de nombreux pro 
grammes pour simuler les commandes de Scrolling, coloriage 
monpulahion vectorielle 


PROGRAMMES POUR AMSTRAD 
Cedic/Nathan 

par H. Cador et S. Houel 

128 pages - 89 FF Réf. SIP 15 


Cet ouvrage permettra à l'utilisateur de jouer et de programmer 
avec Amstrad CPC (464, 664 et 6128) en Basic ou en assem 
bleur 

Il'explique comment construire Sort même un ‘Space Invaders” 
de haute gamme, un synthétiseur musical ou un générateur de 
courbes ou de graphiques 


INTELLIGENCE ARTIFICIELLE 
SUR AMSTRAD CPC 
Langage et formes par T et E Levy-Abegnoli 


176 pages - 195 FF Réf. SIP 16 


Ce livre aborde, avec humour, deux notions bien précises de l'In 
teligence Artificielle le langage noturel et la reconnaissance 
des formes Les dix logiciels Basic de ce hvre tournent autour de 
ces deux thèmes Le dernier programme est un mini Système 
expert de diagnostic médical Les programmes sont de diffi 
culté moyenne 


CLEFS POUR AMSTRAD 
Tome 1 Système de base par D Martin 
184 pages - 140,00 FF Réf. SIP 17 


Pour accéder rapidement aujeu d'instruction du Z 80, aux points 
d'entrée des routines Système, aux blocs de contrôle, à la struc 
tureinterne et des conseils pour découvrir l'originalité de votre 
Amstrad 


Tome 2. Système disque par D Martin 
et P Jadoul 
232 pages - 155,00 FF Réf. SIP 18 


Pour avoir sous les yeux les commandes, les points d'entrée des 
routines disque, les blocs de contrôle, la programmation et les 
brochages des circuits Spécialisés et un chapitre complet sur le 
langage Logo distribué avec le système disque Vous trouverez 
aussi un recueil de ‘trucs’ pour apprendre à tronstérer des pro 
grammes de lo cassette vers le disque, comment utiliser l'édi 
teur de secteur, etc 


SM 
me =" um mm = 


Veuillez m'envoyer les ouvrages dont j'indique les titres ci-dessous. 


T-ARGELES 

2860 DATA 2,0,3,=4,1,-6,-1,4 
5-0. 5,1,-1,-1,0,-2,-1,-2,0,-5,-0.5,-2, 1. 
S,1,1,-1,-1 ,-0.5,0.5,-1,-0 
-1,-5,-0.5,-4,-1,-4,-1,-2,-1,-1,-1.5,-0. 


shouts 0491; -1,1,0,5,:0 


“et: 21:54 
y Vs SE, 


S,1.5,-2,3,0,0, 


sos oo ils ec 00, 1,51, 41,:0-5,2,= 

(6 <) 

2870 ARGELES- 

FRADES 

2880 DATA 0,-1,1,0,2,-0.9,1.5,0.5,0.5,-0 

1 DEC 2e Dore le cle dos y O pi Le Sy Os 2 

= 109 SOL O2 Us ce- LI art 

3890 

2900 REM #3 XXE EDEN NE NE 

2910 REM DATAs fleuves 

2920 REM #6 MEET 

2930 SEX 

NE 

2940:DATA =19.5;101-5,1,0,1,0.5,0,-0:5,1 
5150,0.5,0.5,0,0;,-2.5,1,1,1,0,0,-—1,1.5,— 
15101005, 0.:53,0,0,-1,1,0,1,0.5,-0.5,-1,3 
=2,3,1,0;5,0: 5, F0: 2:05, 0,2, 1,15 15 
Les 5,2: Dei 1 "0, 1,1:050,0.:5,5,0, 
d:1:9,290,0.5,-2,4, _, 75 095-8,4tf,0 

29740 LOI 

RE 

CIO DRE A1, 6754-15 568452,5,02,0.5,2; 
sole, _0,3,5, Re Dj SP EE 

Tel ee Os Tor dre Os die Sos -1,155,-2,0 


M te nd Be 40e 
-1,-1,0,0,-4,2,-1,1,1,&ff,0 


2970 ‘ GARO 
NNE 
2780 DATA -29.5,37.5,0.5,-2,1,-1,1,-2,2, 


Di La AO, BL NI TOR, + mm US 
Son tlsrs-11,-2.9,0,-1,1,-0.5,;Uf 
ELA, 

2990: ! RHO 
NE 

3000 DATA 32,55.5,-1.3,-1.5,0,-5,-2,-2,— 
2yre0s 25937150, 5,;-4,0,-451,-4,-1.5,-10 
10.531.544 —.9,0;-2;-2,-065,0,-3;3,-4,- 
2,0,1,2,8FF,8RFF 

30107 

3020 REM XXE NE NE 

3030 REM DATAs villes 

3040 REM XXE UUEUNEUEUNE NE 

3050 

3060 DATA 65,93,PARIS,41,97.5,CAEN, 92. 
94, BOURG-EN-BRESSE , 116,92, STRASBOURG, 36 
37, BORDEAUX 

5070 DATA 96,15.5, MARSEILLE, 80, 17.5, MONF 
ELLIER, 18,86, SAINT-HRIEUC, 88,56, MACON, 52 
933 79-93 SAINT-LO 

3080 DATA 25,70,NANTES, 96,62, LONS-LE-SAU 
NIER,52.5,54,LA ROCHELLE, 99, 70, BESANCON, 
90,70,DIJON 

35090 DATA 36,22, MONT-DE-MARSAN, 57, 14, PAU 
5435,12.5, TARBES,47,18,AUCH,58,7.5,FOIX 
3100 DATA 66,11.5, CARCASSONNE, 70.5, 4,FER 
PIGNAN,67.5,112.5,ARRAS,75.5,104,LAON, 71 
119.9 LILLE 


5110 DATA 53,102,ROUEN,61.5,101, BEAUVAIS 
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533-5, 94.5, EVREUX, 44,48.5, ANGOULEME, 82.5 
574.5, CHALON SUR MARNE 
3120 DATA 100,97,METZ,99.5,91.5,NANCY, 11 
1,84,COLMAR,5,81, QUIMPER, 28,81.5,RENNES 
3130 DATA 36,81,LAVAL,45.5,80,LE MANS, 44 
86, ALENCON, 68,87.5, MELUN, 58, 72.5, ANGERS 
5140 DATA 48.535,68, TOURS, 100, 76.5, VESOUL, 
56.5,86,CHARTRES,90.5,91.5,BAR-LE-DUC, 17 
76, VANNES 

3150 DATA 76.5,76.5, AUXERRE, 90.5,82,CHAU 
MONT, 112,22.5,NICE,268,57,NIOKT,45:5,60,P 
OITIERS 

3160 DATA 29,60,LA ROCHE SUR YON,65,65,H 
OURGES, 72, 6215, NEVERS, 73.5,57, MOULINS, 58 
-3, 239.5, CHATEAUROUX 

3170 DATA 61,76,0RLEANS,55, 71.5, BLOIS, 46 
-5, 28, AGEN, 56, 29.5, CAHORS,64,21.5,ALBI 
3180 DATA 68,28,RODEZ, 66, 37,AURILLAC, 59. 
5,41,TULLE,54,49.5,LIMOGES, 49, 40,PERIGUE 
UX 

3190 DATA 71.5.46.5. CLERMONT-FERRAND. 84. 
42, SAINT-ETIENNE,89,48,LYON, 101,50,ANNEC 
Ye ?77:2:46% CRE 
5200 DATA 98,40.5,GRENUELE, 102,31,GAF, 10 

26,DIGNE,86,21, UMÉE: 91:22:95; AVIGNON 

3210 DATA 77,31, HENDE , G0,SBSLE PES 87; 54 
. PRIVAS, 92,56, VALENCE, 102,14, TOULON 

53220 DATA 55,18.5, TOULOUSE, 86, 105, CHARLE 
VILLE-MEZIERES,65, 107,AMIENS, 60,535, GUERE 
1,800, B&; TROYES 

3230 DATA 107,76,HELFORT, 102,84,EPFINAL 
32907; 

2250 REM HEURE ODEDE DE DE HE DE DE DE DE DE DEN 

3260 KEM DATAS pour routine L.M. 

2270 REM HUMMER HENEOUNEME EDEN DEN NE DE DE DE 

mel e | 0] ru 

T2JONDATALSES OLSCDSOES SECD IAGEL 

5500 DATA 21,15,A0,06,1F,7E,CD, SA 

3510 DATA:BB,22, 10,F97,097:20,20,20 

33520 DATA 20,20,20,20,20,20,FF,20 

3330 DATA 20,50,61,74,72,69,63,6kR 

3:40 DATA 20, 20, 40, 45,46, 45, 56, 52 

5350 DATA 45,20,20,FF 

3360 

3370 REM MMM MEME MEME NE END NE NE 

32:80 REM DATAS musique 

2390 REM #HHMHOUMEOUHCUNEDEUE RENE EN 

353400 

3410 DATA 478,050,3579,050,3558, 
O,000,005,319,050 

3420 DATA 478,050,379,050,358,050,3519,20 
0,000,005,319,100 

3450 DATA 478,050,379,050,558 
0,3779,100,478, 100 

3440 DATA 379,100,426, 200, 000,005, 426, 09 
0,379,050, 000,005 

3450 DATA 579,050,426,050,478, 150, 000,00 
9,478,050,379,100 

3460 DATA 319,100,000,005, 
0, Q00, 005,258, 100 
3470 DATA 579,050, 
0,478, 100,426, 109 
3480 DATA 478,200,000,095,478,050,000,00 
5,000,005,-01,0010 


050,319, 20 


,050,319,10 


319,050,3558, 15 


358,050,319,100,379,10 


GEM SUR AMSTRAD PC 
par Digital Research 
168 pages -185 FF Réf. SIP 1 


Ce livre constitue une découverte complète et progressive du 
logiciel GEM et ce ses principales applications GEM Point 
GEM Write, GEM Graph et GEM Wordchart 

Des explications claires et pratiques permettront aux débu- 
tants de mieux manipuler les disquettes GEM les fichiers la 
souris ils trouveront également des menus déroulants et toutes 
les abréviations et commandes de GEM utilisées 

Voici un ouvrage également indispensable pour mieux Com 
prendre en quoi GEM et l'Amstrad PC peuvent résoudre des cas 
concrets en mieu protessionnel ou Semi protessionnel 


CLEFS POUR GEM SUR AMSTRAD PC 
par Daniel Martin 
288 pages - 195 FF Réf. SIP 2 
Voici un livre de référence pour les programmeurs avertis sur 
Amstrad PC Ils pourront 

retrouver facilement les différents constituants de GEM 
(GEM VDI. GEM AES) 

étudier successivement le constructeur de ressources RCS 
la description d'un programme GEM. l'éditeur d'icônes, etc 

tirer profit des trucs et astuces très utiles donnés par l'auteur 
lis pourront enfin programmer leurs propres applications gra 
phiques sur ce magnifique outil qu'est GEM 


DOS PLUS SUR AMSTRAD PC 
par Daniel Martin - Collection Digital Research 
200 pages - 145 FF Réf. SIP 3 


Cet ouvrage s'adresse aussi bien aux débutants qu'aux utilisa 
teurs plus avertis cherchant des informations sur ce système 
d'exploitation DOS Plus sut Amstrad PC est une découverte 
complète et progressive de ce logiciel permettant de faire tour 
ner des programmes sous MS DOS ou CP/M 86 Après une pré 
sentation générale de | Amstrad PC. les premiers chapitres du 
hvre constituent une approche de DOS Plus (opérations sur les 
fichiers, fichiers batch éditions de textes etc) La deuxième 
parte de l'ouvrage approtondit les caractéristiques les plus 
évoluées de DOS Plus (utilisation approfondie des répertoires 
programmes d'arnière plan, gestion de l'imprimante. etc 


FONCEZ AVEC L'AMSTRAD PC 1512! 
Cedic/Nathan 

par Brian C. Thomas 

208 pages - 98 FF Réf. SIP 4 


Cet ouvrage de l'Amstrad PC 1512 est conçu comme un guide 
de l'utilisateur indispensable lors de l'achat du matériel 
Lutihsateur y trouvera un chapitre Spécial sur le MS DOS sur la 
communication, Sur le Basic 2. sur les logiciels, sur les exten 
sions et périphériques additionnels. etc 


GESTION SUR AMSTRAD PCW 
par J-M Jego et J-M Gargadennec 
240 pages -175 FF Réf. SIP5 


Découvrez progressivement sur votre Amstrad 3 logiciels com 
plémentaires Locoscript. dBASE I! et Muitiplan Ce livre vous 
propose des modèles et des tableaux de bordcommentés Vous 
pourrez les adapter à votre propre contexte si vous êtes com 
merçants ou travaillez dans une PME 


CLEFS POUR AMSTRAD PCW 
par Jean-Jacques Weyer 
240 pages - 215 FF Réf. SIP 6 


Voici un hvre complet et indispensable, d'utilisation simple et 
pratique pour l'utilisateur de l'Amstrad PCW 

1! détaille tout ce que vous dvez besoin de savoir sur le Basic Mal 
lard, Locoscript (logiciel de traitement de texte du PCW) Multi 
plan, dBASE II et CP/M Plus 

L'auteur a développé pour chaque applicationles diverses com 
mandes illustrées d'exemples concrets les fonctions et opéra 
teurs les messages d'erreur, etc 


A 
BON DE COMMANDE 


17, rue Russeil 44000 NANTES 
Frais de port en sus: 25F 


Nom 


Adresse 


Signature. 


5 AMSTRAD A L'ECOLE 


ss DE ny un 
À renvoyez avec votre règlement à STAMP DIFFUSION, 


Ci-joint mon règlement par chèque ou mandat 


par D. Nielsen et A. Garcia-Ampudia 
232 pages - 120 FF Réf. SIP 7 
Cet ouvrage, destiné aux parents, élèves et enseignants, est 
conçu pour aborder ou réviser les matières principales des 
classes du primaire le calcul, le français et l'éveil 

21 programmes d'enseignement sont proposés aux lecteurs 
ainsi qu'un cahier de vacances qui permettra aux enfants de 
concevoir eux-mêmes de petits programmes 


CREATION ET ANIMATIONS GRAPHIQUES 
SUR AMSTRAD 
par Fouchard et Corre 
128 pages -110 FF Réf. SIP 8 


Vous apprendrez, grâce à ce livre. à créer des images telles 
qu'un pinceau. un aérographe. à animer vos dessins avec des 
scrollings. des inversions ou des reconstitutions d'image point 
par point, ceci à l'aide dela souris et dela manette dejeu Les pro 
grammes sont écrits en Basic et en assembleur 

A vous ensuite de réaliser vos propres ‘bandes dessinées élec 
troniques” 


TROIS ÉTAPES VERS 
L'INTELLIGENCE ARTIFICIELLE 
SUR AMSTRAD CPC 
par R Descamps 
280 pages - 160 FF Réf. SIP 9 
Informaticien ou non, découvrez trois facettes de l'intelligence 
artificielle à travers des exemples simples et pratiques et 
27 programmes en Basic qui utilisent toutes les ressources de 
l'Amstrad Apprenez à votre ordinateur à simuler un pilote auto 


matique à jouer contrelui-même et créez vos propres systèmes 
experts 


RSX ET ROUTINES ASSEMBLEUR 
SUR AMSTRAD CPC 
par D Roy et J.-J Meyer 
368 pages - 200 FF Réf. SIP 10 
Voici un manuel de programmation en assembleur Z 80 En deux 
portes distinctes, l'une sur le graphisme. l'outre sur les mathé 
motiques, l'ouvrage présente de nombreux programmes 
assembleur. largement commentés et expliqués Unouvrage de 
haut niveau 


TURBO PASCAL SUR AMSTRAD 
par P. Brandeis et F. Blanc 
224 pages -135 FF Réf. SIP 11 


Ou comment maîtriser progressivement ce langage Comment 
installer des programmes en Assembleur à l'intérieur des routi 
nes Poscal Retrouvez dans ce ivre toutes les Instructions expli 
quées et illustrées 


AMSTRAD 3D 
par J.-P. Petit 
264 pages -195 FF Réf. SIP 12 


Ce livre propose un programme Basic pour créer des formes, les 
dupliquer, les réduire ou les agrandir. et surtout pour les vision 

ner sous différents angles entrois dimensions (hauteur. largeur. 
protondeur) Un menu presente toutes les manipulations possi 

bles. et tous les dessins se font à partir du clavier (nul besoin de 
manette de Jeu ou de souris) L'ouvrage est abondamment 
illustré de dessins et de copies d'écron 


GRAPHISME EN ASSEMBLEUR 
SUR AMSTRAD CPC 
par F Pierot 
304 pages - 145 FF Réf. SIP 13 


Pour créer des graphismes très variés (tracé d'histogrommes 
dessin d'un paysage. création d'une corne d'abondance) tout en 
exploitant toutes les possibilités graphiques de votre CPC 

Si vous êtes débutant en assembleur, vous pourrez progresser 
grôce à des routines prêtes à l'emploi livrées sous la double 
forme d'un programme Basic et d'un listing assembleur 


LE LIVRE DE L'AMSTRAD 
par D. Martin et P. Jadoul 
256 pages - 120,00 FF Réf. SIP 14 


Une étude complete des circuits et de la Structure interne de 
l'Amstrad, ses fonctions et les instructions mal connues du 
Basic (VARPTR ). une présentation détaillée des RSX pour 
ajouter de nouvelles commandes au Basic et de nombreux pro 
grammes pour simuler les commandes de scrolling. coloriage 
monmpulation vectorielle 


PROGRAMMES POUR AMSTRAD 
Cedic/Nathan 

par H. Cador et S. Houel 

128 pages - 89 FF Réf. SIP 15 


Cet ouvrage permettra à l'utilisateur de jouer et de programmer 
ovec Amstrad CPC (464, 664 et 6128) en Basic où en assem 
bleur 

Il'explique comment construire Soi même un ‘Space Invaders” 
de haute gamme, un synthétiseur musical ou un générateur de 
courbes ou de graphiques 


INTELLIGENCE ARTIFICIELLE 
SUR AMSTRAD CPC 
Langage et formes par TetE Levy-Abegnoli 


176 pages 195 FF Réf. SIP 16 


Ce hvre aborde, avec humour, deux notions bien précises del'In 

telligence Artificielle le langage naturel et la reconnaissance 
des formes Les dix logiciels Basic de ce livre tournent autour de 
ces deux thèmes Le dernier programme est un mini Système 
expert de diagnostic médical Les programmes sont de ditfi 

culté moyenne 


CLEFS POUR AMSTRAD 
Tome 1 Système de base par D Martin 
184 pages - 140,00 FF Réf. SIP 17 


Pour accéder rapidement aujeu d'instruction du 7 80. aux points 
d'entrée des routines système, oux blocs de contrôle, à la struc 
tureinterne et des conseils pour découvrir l'originalité de votre 
Amstrad 


Tome 2. Système disque par D Martin 
et P. Jadoul 
232 pages - 155,00 FF Réf. SIP 18 


Pour avoir sous les yeux les commandes, les points d'entrée des 
routines disque, les blocs de contrôle, la programmation et les 
brochages des circuits spécialisés et un chapitre complet sur le 
langage Logo distribué avec le systéme disque Vous trouverez 
aussi un recueil de ‘trucs’ pour apprendre à transtérer des pro 
grammes de la cassette vers le disque, comment utiliser l'édi 
teur de secteur. etc 


SO ON 
mem =” ue = 


Veuillez m'envoyer les ouvrages dont j'indique les titres ci-dessous. 


“J'IRAI CRACHER SUR VOS TOMBES" 
BORIS AN 

Notons au préalable que si cette édition a pour 
auteur Boris Vian, elle fut signée en réalité Ver- 
non Sullivan, célèbre pseudonyme, pour l'occa- 
sion de l'écrivain. Livre déja mythique, il fut l'ob- 
jet d'une adaptation à l'écran que Vian désa- 
voua. Le style irremplaçable de Vian s'y inscrit 
sans hésitation. 


"CINE TELE GUIDE" 85F 
Ouvrage paraïtement indispensable à tous les 
passionnés du cinéma. 1 1000 films y sont réper- 
toriés sous forme de petites "fichas”. Indispen- 
sable. 


"HARRISON FORD" 55F 
Harnson Ford, s'il est un acteur ayant déja 
beaucoup de métier, n'en demeure pas moins 
une star récente. Découvrir une nouvelle race 
d'acteurs, voila ce que l'auteur nous propose. 
En prime, la filmographie intégrale de Ford 


"LA ROUTE DES INDES" 80F 
E.-M. Forster nous dépeint à un fait divers : 
une jeune anglaise est agressée dans les grot- 
tes de Marabar. Mais ce n'est qu'une excuse 
pour livrer au public une excellente analyse sur 
la présence des anglais en Inde. David Lean en 
avai fait l'adaptation à l'écran. 


"LA MARIEE ETAT EN NOIR" 50F 
Souvenez-vous du film de François Truffaut où 
Jeanne Moreau s'amusait à tuer chacun des res- 
ponsables de la mort de son mari. William Irish 
en a auparavant fait un superbe roman 


“"MIDNIGHT EXPRESS" 85F 
Le film d'Alan Parker avait, voici quelques an- 
nées, fait déplacer les foules. Au succès, juste- 
ment mérité du film, succède aujourd'hui un 
livre. En manière d'histoire vécue, fort intéres- 
sante, où nous est délivré le véritable récit de 
cette histoire de drogue qui valut à Billy Hayes 
cinq ans dans les prisons turcs. 


MIDNIGHT 


EXPRESS INGRID 


BERGMAN 


“MARILYN MONROE" 48F 
Il n'est pas rare de voir en librairie des ouvra- 
ges sur cette star. De l'ouvrage de photos à la 
biographie, en voila un qui recense tous ses 
films et qui nous permet de découvrir un peu 
quelle a été sa vie. 


"LE MYTHE ET LA VIE" 

INGRID BERGMAN 95F 
Ingrid Bergman est une star immorntelle. Ce, à 
deux titres ; d'abord parce qu'elle a illuminé 
Hollywood quarante ans durant ; ensuite, parce 
que sa vie, qu'un scandale a éclaboussé, est di- 
gne d'un film. La biographie de l'actrice par un 
écrivain américain. 


"FEMME PUBLIQUE" 

AUCE SAPRITCH 75F 
Saprnitch par Sapritch, voila un livre qui ne man- 
que ni d'humour, ni de punch, ni de tendresse. 
L'actrice, qui ne laisse personne indifférent, ra- 
conte et se raconte. Passionnant. 


"L'ANNEE DU CINEMA 1986" 185F 
Toute l'année 1986 dans sa version cinémato- 
graphique, avec en plus un calendrier mensuel, 
tant des films que des festivals. 300 pages de 
bon cinéma. 


"JEAN DE FLORETTE, 

suivi de MANON DES SOURCES" 

MARCEL PAGNOL 100 F 
A l'heure où Claude Berri parvient, grâce à Pa- 
gnol et à l'adaptation cinématographique qu'il a 
fait de ses œuvres, à faire venir plusieurs mil- 
lions de spectateurs dans les salles obscures, 
voici Pagnol par Pagnol. 


"EN DESESPOIR DE CAUSE" 85F 
Roben Hossein, homme passionné s'il en est, 

nous passionne avec ce livre écrit avec fougue. 

Parmi ses préoccupations, le théâtre bien sûr, 

mais aussi la vie, sa vision des choses. 


"BIOGRAPHIE NON AUTORISEE" 100F 
Le livre n'emprunte pas son titre pour rien. En 
effet, lors de l'écriture du bouquin, Sinatra as- 
signa son auteur en justice. Mais l'écrivain put 
poursuivre son travail et nous révèle ici la véri- 


"GABY MORLAY" 88F 
Un livre sur une très grande actrice dont même 
le temps n'a pu effacer le nom... Une biographie 
sur une star des années 30 et 40, avec en exer- 
gue du livre, un mot de Jean-Claude Brialy. 


table vie de l'acteur-chanteur. 

Fe ser L =: PNR RS 
Re 
Adresse nm nn ne de ne 
Code postal: = Rene ee 
Ville : 


Date : 


Total commande : 


Total de mon règlement: 


"CROSS" 2F 
Philippe Setbon a réalisé le film, dont le livre 
est tiré, avec pour acteurs Michel Sardou et 
Roland Giraud. Pour ceux qui n'auraient pu voir 
k film en salle. 


Port (recommandé PU): 22:00 X 0 = 


Signature : 


VISION - La Haïe de Pan -35170 BRUZ. 


Cijoint un chèque libellé à l'ordre de : VISION. Retournez k(s) bulletin(s) ou une photocopie à : 


Pour obtenir de beaux 
écrans sur ordinateur, à 
chacun ses outils : certains 
utilisent des logiciels de 
création graphique avec 
souris, crayon optique et 
tablette à digitaliser, les 
matheux (qui sont des gens 
paresseux) préfèrent taper 
une ou deux équations et 
laisser l’ordinateur 
travailler tout seul. Les 
programmes que nous vous 
présentons permettent 
d'étudier les fonctions de 
deux variables, et surtout, 
d'obtenir des motifs 
magnifiques. Le principe de 
représentation est le même 
que celui des cartes de 
géographie : chaque point 
est colorié suivant son 
altitude. Pour le premier 
programme (fonctions en 
couleur), il est nécessaire 
de posséder un moniteur 
couleur. 


Listing 1 
LD RENE 
{1 + Li 
12 ‘# FONCTIONS EN  # 
13 ‘+ 4 
14 * COULEURS + 
15 ‘# + 


LD RENE 

46 DEFINT 1,3,c,k,u 

59 DEF FNF(x)=COS (x#y#EXP (-y/5)) 

199 GOSUB 1906:REM fenetre d'etude 
110 GOSUB Z669:REM choix des couleurs 
129 GOSUE 4060:REM trace 

30 GOSUB 5900:REM animation 


FONCTIONS 
EN 
COULEURS 


Richard COTTE 


Détaillons le premier listing : 

— la ligne 40 déclare comme entières 
toutes les variables qui peuvent l'être, 
notamment les indices de boucles (i et 
j) : cela accélère nettement l'exécution. 
— la fonction f(x, y) est déclarée en ligne 
50. Il n'y a que cette ligne à modifier 
pour étudier différentes fonctions. 

— le premier sous-programme permet de 
définir la fenêtre d'étude : on peut ainsi 
cadrer les zones qui paraissent les plus 
intéressantes. Il faut introduire 4 
nombres : 2 bornes pour les abscisses, 
2 bornes pour les ordonnées. Pour 
l'exemple du listing, on peut prendre 
-10, 10 pour les x comme pour les y. 
Ensuite, le programme peut calculer lui- 
même les altitudes minimales et 
maximales. Il est nécessaire de connaître 
ces deux nombres pour bien étager les 
couleurs. L'inconvénient est la durée de 
ce sous-programme : 16000 calculs, ce 
qui peut prendre 15 à 20 minutes suivant 
la complexité de la fonction étudiée. 
Aussi, vaut-il mieux rentrer soi-même les 
deux bornes en z, si on les connaît (pour 
l'exemple du listing, prendre -1, 1). 

— le deuxième sous-programme initialise 
les encres : on travaille en mode O, pour 
disposer de la plus large palette. Les 
couleurs ont été choisies pour que des 
altitudes voisines soient représentées par 
des teintes voisines. Vous pouvez 
modifier la ligne 3080 si les nuances du 
programme ne vous conviennent pas. 
— le troisième sous-programme assure 


le tracé : il faut attendre quelques 
instants que l'écran soit rempli, mais le 
résultat en vaut souvent la peine. 

— le quatrième sous-programme va vous 
envoyer dans un univers psychédélique : 
une pression sur la touche ENTER, et 
l'écran s’anime ! Une deuxième pression 
arrêtera le programme. 

Nous vous donnons un petit catalogue 
de fonctions donnant de jolis résultats. 
Ne vous limitez pas à ces exemples : à 
partir de là, de petites modifications vous 
donneront des motifs totalement 
différents. 

Pour ceux qui ne disposent pas d'un 
moniteur couleur, ou ceux qui veulent 
une recopie d'imprimante, nous donnons 
une autre approche : la simulation de 
niveaux de gris. l'écran est divisé en 
cellules de 3 x 3 =9 pixels, ce qui permet 


“HFBRER ER 


Eh a BR 


Même si vous travaillez avec la . 
ne vous privez pas de ce deuxième 
programme. La même fonction, observée 
en couleurs ou en grisé, aura des aspects 
différents. Les motifs qui apparaissent 
dans un cas ou dans l’autre ne sont pas 
forcément les mêmes. 


1939 MODE 1:INK 9,6:INE 1,13: BORDER 6 


1979 INPUT"Calcul de minima* (o/n)":a$ 


1989 IF LOHER$(a$)="o" THEN GOSUB 2609:G0T0 1109 


14% END 
LB: )OCCRMRET222222222222) 
#QC: 1916 ‘FENETRE D'ETUDE 
:CD: ICAURTT 7712211 2212 
?TE: 
PF: 1949 PRINT'"'Fenetre d'etude :":PRINT 
?VG: 1956 INPUT"Bornes en x :“5x1,x5 
THE 1969 INPUT"Bornes en y :";yi,ys 
:ME* 
3TF< 
?LE£ 1999 INPUT"Bornes en z :"321,25 
2FC* 1109 RETURN 
#0D< 2000 HIHI 
3JE: 2619 ‘CALCUL MINIMAX 


2020 HAE >VE< 14 ‘x GR1SE 4 

2036 PRINT"Patience...." IFF< 15 ‘+ 4 

2049 z1=1E+30: 25=-1E+30 >06< LE HR 

2056 FOR i=0 TO 639 STEP 4 >UH< 40 DEFINT i,j,k 

2069 x=x1+(x5-x1)#1/639 ?BJ{ 99 DEF FNf(x)=C0S (x#y#EXP (-y/5)) 
2070 FOR j=9 TO 399 STEP 4 AK£ 190 GOSUB 1900:REM fenetre d'etude 
2080 y=yit(ys-yi)#i/399 3ML< 119 GOSUB 3900:REM trace 

2096 2=FNf (x) FM 12 END 

2190 zi=MIN(zi,2) #PD< 1000 CHRIS 

2110 zs=MAX (25,2) PE“ 1919 ‘FENETRE D'ETUDE 

2126 NEXT j 2RF< 1020 HIHI 

2130 NEXT : RG< 1930 MODE 1:INK 0,0: INK 1,13: BORDER d 
2149 RETURN 2NH£ 1949 PRINT"Fenetre d'etude :":PRINT 
JOOQ HFHEHENNEHEE ?BD< 1950 INPUT"Bornes en x :"5x1,X%5 
3919 ‘CHOIX DES COULEURS ?ME< 1969 INPUT"Bornes en y :"3yi,ys 
3020 HN :DF< 1979 INPUT"Calcul de minimax (o/n)";a$ 
3039 MODE 9:DIM c(15) >HG< 1980 IF LOWER$(a$)="o" THEN GOSUB 2906:G0T0 1109 
3040 FOR i=9 TO 15 >DH£ 1990 INPUT"Bornes en z : "521,25 
3059 READ c(i):INK i,c(i) TJ 1106 RETURN 

3060 NEXT i 2VK£ 2000 HIHI 

3070 RETURN RL 2919 ‘CALCUL MINIMAX 

3086 DATA 9,1,4,2,5,11,10,13,26,3,7,8,6,15,12,24 :RM£ 2020 HIER 

4000 ‘####4 JE 2630 PRINT'Patience...." 

4615 TRACE FF 2040 z1=1E+30:25=-1E +30 

4020 ‘###HEX LG: 2650 FOR 1=0 TD 639 STEP 4 

4936 FOR i=0 TO 639 STEP 4 >UH* 2060 x=x1+(xS-11)#1/639 

4048 x=x1+(x5-x1)#1/639 ?BJ< 2070 FOR j=0 TO 399 STEP 4 

4050 FOR j=9 TO 399 STEF 4 >AK€ 2009 y=yi+(ys-y1)#3/399 

4069 y=yi+(ys-yi)*j/399 2ML< 2090 z=FNf(x) 

4070 2=FNf{x) FM 2100 zi=MIN(zi,z) 

4689 k=INT(16#(2-2i)/(25-21)) ?LN< 2110 zs=MAX (25,2) 

4096 IF k=16 THEN k=15 >BP< 2129 NEXT j 

4190 PLOT i,3,k:PLOT i, j+2,k WF € 2139 NEXT :i 

3110 NEXT j >TGÉ 2149 RETURN 

4129 NEXT i ?TH£ 3000 ‘####4 

4130 RETURN PJ 3910 TRACE 

5000 HAINE > TF< 3020 ‘###44 

2010 ‘ANIMATION ?NG< 3630 CLS 

5020 ‘KHAN :VH£ 2946 FOR i=2 TO 639 STEP & 

9030 WHILE INKEYS$£>CHR$ (13) : HEND >JJ< 3050 x=x1+(x5-x1)#1/639 


5940 ‘on attend que la touche ENTER ?NK< 3060 FOR j=2 TO 399 STEP à 


5959 ‘soit pressee pour commencer 3TL4 3970 y=yit(ys-yi)#3/399 

5960 EVERY 8 GOSUB 5500 ?YM£ 39080 z=FNf(x) 

9979 WHILE INKEV$<€:CHR$ (13) : HEND 2NN€ 3099 k=INT(10#(2-z1)/(z5-21)) 

9989 RETURN >VP< 3196 IF k=0 THEN 3200 

9909 ‘ROTATION DES COULEURS 3KL< 3110 PLOT i,3:1F k=1 THEN 3206 

9919 uzuti 7 XM€ 3120 PLOT i+2,j:1F k=2 THEN 3200 

J029 FOR i=ÿ TO 15 3JN€ 3139 PLOT 1,j-2:1F k=3 THEN 3290 

9239 INK i,c((itu) MOD 16) ?UP< 3149 PLOT i-2,j:1F k=4 THEN 3260 

9949 NEXT i AQU 3159 PLOT i,j+2:1F k=S THEN 3200 

9990 RETURN ?KR< 3169 PLOT 1-2,j+2:1F k=b THEN 3200 
3179 PLOT i+2,j-2:1F k=7 THEN 3206 

Listing 2 3180 PLOT i-2,j-2:1F k=8 THEN 3209 

3199 PLOT i+2, j+2 

LD HP LB 3200 NEXT j 

11 + L ?QC< 3219 NEXT i 

12 ‘# FONCTIONS EN # ?CD£ | 3220 WHILE INKEYS<>CHRS (13) :WEND 

13 ‘+ 4 ?TE£! 3230 RETURN 


Ç 4 Me 


LA 
LINO VENTURA 


Cenr ours 
A PALERME 


video … video … video … video … video … 


Total commande: - 


- Préno 
(Ecnre en majuscules) 


Adresse : —_— Port (recommandé PU): 
Total de mon règlement : 


Code postal : Date : 


Ville : _— Signature : L 


Ci-joint un chèque libelk à l'ordre de: VISION. Retournez k(s) bulletin(s) ou une photocopie à : 
VISION - La Haïe de Pan - 35170 BRUZ. 


MACHINES 


JEAN REINGOT 


| lé 


O 


| Ce logiciel original, destiné plus 
| particulièrement aux enfants de 7 


| à 97 ans, vous permettra 


programme. 


DO HAINE 


26 ‘#44 MACHINES ÉELES 
30 ‘###4 Version 464-664-6128 #KH4 
46 ‘#44 JEAN REINGOT ###4# 
50 ‘#### Avril 1987 LELL 
DD IEEE 
7ù ‘ 

89 INITIALISATIONS 

9ÿ ‘ 


d'effectuer une simple mais 
salutaire gymnastique mentale Les 
ronds et les carrés changent de 
taille et de couleur suivant la 
machine choisie. Le reste des 
explications se trouve sous forme 
de démonstration dans le 


190 CLS:DEG: INK 9,13: INK 1,6: INK 2,2: INK 3,6: BORDER 12: >NB< 


PAPER 9 
119 DIM f$(15) ,m$ (15) ,n$(15),h(15) 
126 FOR i=i TO 3:c$(i)=CHR$(15)+CHR$ (1) :NEXT 


130 ap$="X Appuyez sur une touche X':ef$=STRING$ (24,32) >XE< 


tefi$=STRINGS (14,32) 


149 WINDOW#1,4,9,11,15:WINDOW#2, 13,28, 11,15:WINDOW#S, 32 ?BF< 


,36,11,15:MINDOW#4, 35, 39,3, 4 
150 ENV 1,1,15,2,5,-3,4 

160 ENV 2,1,15,1,15,-1,2 

170 ENV 3,1,15,1,4,-20,2,7,-10,4 

180 ENT 1,1,-100,1,5,25,3 

190 ‘ 

200 ‘  REDEFINITIONS SYMBOLES 

210 

220 SYMBOL AFTER 180 

230 SYMBOL 181,24,12b, 126,255, 255, 126, 126, 24 
240 SYMBOL 182,40, 66, 129,129, 129, 129, 66, 66 

250 SYMBOL 183,255, 255, 255, 255, 255, 255, 255, 255 
260 SYMBOL 184,295, 129, 129, 129, 129, 129, 129,255 
270 SYMBOL 185,0,0, 24, 60,60, 24 

280 SYMBOL 186,0,0, 24,36, 36, 24 


88 


290 SYMBOL 187,0,0, 60, 69, bd, bû 
300 SYMEOL 188, 0,0, 60,36, 36, bÔ 

319 SYMBOL 209,0, 56, 40, 40,40, 40,56 

320 SYMBOL 201,0,8.24,40,8,8,8 

320 SYMEOL 202,0,56, 40, 56,8, 16,56 

340 SYMBOL 203, 0,56, 8, 48,8,8,56 

350 SYMBOL 204,0,8, 16,32, 40,56,8 

360 SYMBOL 205,0,56, 32, 56,8,8, 56 

370 SYMBOL 206,0, 56,32, 32,56, 40,56 

380 SYMBOL 267,0,56,8,24,8,8,6 

390 SYMEOL 208,9, 56, 40,56, 40, 49,56 

400 SYMBOL 209,0,56, 40,56, 8,8, 56 

410 SYMEOL 219,9, 46, 106, 170,42, 42, db 

420 SYMBOL 211,0,34,102,170,34,34, 34 

30 SYMBOL 212,0, 46, 106, 174, 34,36, 46 

449 SYMBOL 213,0, 46,98, 172,34, 34, 46 

Se SYMOL 214,9,31, 100, 160, 12,16,34 

460 SYMBOL 215,9, 46, 104, 174,34, 34, 46 

470 SYMEOL 216,295, 128,131, 130, 131,130, 130, 255 
480 SYMBOL 217,255, 1,193,65, 193, 129,65, 255 

490 SYMBOL 218,255, 128, 129, 128, 128, 128, 128, 255 
500 SYMBOL 219,255, 1,193,129, 129,129, 1,255 

510 SYMEOL 229,255, 128, 129, 129, 129, 129, 128,255 
520 SYMBOL 221,255,1,193,1,1,193,1,255 

530 SYMBOL 222,255, 128, 156, 144, 144, 156, 128,255 
540 SYMBOL 223,255, 1,97,17,17,17,1,255 

550 SYMBOL 224,255, 128, 129, 129, 129, 129, 128, 255 
560 SYMBOL 225,255,1,193,1,129,1,1,255 

570 SYMBOL 226,255, 128, 156, 144, 152, 144, 128,255 
sgè SYMBOL 227,255,1,57,17,17,17,1,255 

590 SYMBOL 228,255, 128, 156, 144, 152, 144,128, 255 
LD SYMBOL 229,255, 1,57,33,33,57, 1,255 
610 SYMBOL 230,255, 128, 187, 162,178, 163, 128,255 
420 SYMBOL 231,295,1,157,9,9,137,1,255 

30 SYMBOL 232,255, 128, 129, 130, 131,130, 128, 255 
640 SYMBOL 233,255, 1,129,65, 193,65, 1,255 
650 SYMBOL 234,255, 128, 140, 146, 158, 146, 128, 255 
bbù SYMEOL 235,255, 1,57, 17,17,17,1,255 
&7ù SYMBOL 236,255, 128, 140, 146, 158, 146, 128, 255 
480 SYMBOL 237,295, 1,57, 33, 33,57, 1,255 

690 SYMEOL 238,255, 128,153, 165, 189, 165, 128, 255 
700 SYMBOL 239,255, 1,221,9,9,201,1,255 

719 SYMBOL 240,255, 128, 146, 146, 158, 146, 128,255 
720 SYMBOL 241,255, 1,57,33,49,33, 1,255 

730 SYMBOL 242,255, 128, 153, 165, 189, 165, 128, 255 
740 SYMBOL 243,255, 1,221,9,137,9, 1,255 

750 SYMEOL 244,255, 128,153, 165, 189, 165, 128, 255 
760 SYMBOL 245,255, 1,221,17, 145,29, 1,255 

770 SYMBOL 246,255, 128, 184, 144, 150, 150, 128, 255 
780 SYMBOL 247,255, 1,9, 13, 169,233, 1,255 
790 SYMBOL 248,0,4,6, 255, 255, 6, 4 
890 ‘ 

810 ‘  ASSEMBLAGE SYMBOLES 
820 ‘ 


830 FOR i=0 TO 1:FOR j=0 TO 1:FOR k=0 TO 1:FOR 1=0 TO Ï 
LÉ$Ci#B+ j#4+k#2+1)=c$ (k+2)+CHR$ (181+1#4+ j#2+1) :NEXT:NEX 


T:NEXT:NEXT 
849 FOR i=0 TO 15:n$(1)=c$(1)+CHR$ (200+i) :NEXT 


>PN< 


856 FOR 1=0 TO 15:m$(1)=c$(1}+CHR$(216+1#2)+CHR$ (217+1% 
2):NEXT 

860 FOR 1=0 TO 7:READ no$(1):NEXT 

878 GOSUB 2820 

889 
896 ‘ 
960 
910 BORDER 12:PEN 2:LOCATE 19,4:PRINT “MENU":FEN 1:G60SU 
B 2666:LOCATE 7,7:PRINT “DEMONSTRATION.........., 9" 
929 LOCATE 7,16:PRINT "EXERCICES NIVEAU 1...... L' 

930 LOCATE 7,13:PRINT "EXERCICES NIVEAU 2.....,,2" 

949 LOCATE 7,16:PRINT “CHAINE DE MACHINES......,3" 

950 LOCATE 14,21:PEN Z:PRINT “VOTRE CHOIX 7" 

960 R$=INKEY#:1IF r$="" THEN 960 

978 r=VAL(r$):1F r>3 OR r<û THEN FRINT CHR#(7):60T0 Soë 


MENU 1 


985 CLS:ON r+i GOSUB 1936,1480,1936, 2650 
990 CLS:G0TD 916 

1900 
1916 ‘ 
1929 
1959 GOSUB 28660: BORDER 25 


DEMONSTRATION 


1949 PEN 3:LOCATE 3,2:PRINT "On dispose de 8 figures"il : 


OCATE 5,3:PRINT “numerotees de à a 7":FEN 1 

1959 FOR i=$ TO 1:FOR 3=0 TO 1:FOR k= TO 1 

1066 V=k+j#241#4: va=b+v#2 

1970 LOCATE 4,va:PRINT vi+" “+CHR$(255)+" “no$(1+2)+" 
“+n0$(j+4)+" “no$(k+6)+" "+CHR#(295)+" "+F$(V):PEN 1 
1989 NEXT:NEXT:NEXT 

1996 SOUND 1,63,19,15,1:SOUND 1,47,63,15,1 

1164 LOCATE 15,24:PRINT ap#:CALL YBPIB:CLS 

1116 GOSUB 2669:LOCATE 3,2:PRINT "On dispose de 8 Machi 
nes": LOCATE 5,3:PRINT “"numerotees de à a 7" 


1126 FOR i=0 TO 7:PEN Z:LOCATE 2,7+1#2:PRINT 1,SPC(31); : 


CHR$ (295) +" "4m$ (1) :NEXT 


1139 LOCATE 5,7:PRINT "ne change RIEN ................ ae. 
1146 LOCATE 5,9:PRINT “change La TAILLE ........,...., #2) 


1154 LOCATE 5,11:PRINT "change la COULEUR ..... sonsnoee ? 


“ 


1164 LOCATE 5,13: FRINT 


1176 LOCATE 5,15:FRINT 


“ 


1189 LOCATE 5,17:PRINT 


“change la COULEUR et la TAILLE. 


1199 LOCATE 5,19:PRINT 


1200 LOCATE 5,21:FRINT 
1219 SOUND 1,47,10,15,1:SOUND 1,63,15,15, 1 

1226 LOCATE 15,24: PRINT ap$:CALL #BB18:CLS 

1236 GOSUB 2460: BORDER 23: a=15 

1249 LOCATE 2,2:PRINT "X Exemples X':60SUB 2670 

1250 FOR i=1 TO S:RANDOMIZE TIME 

1266 GOSUB 1419 

1276 ORIGIN 288, 176:h(2)=INT (RND48) :z=h(2):GOSUB 2340 


“change FORME, COULEUR et TAILLE 


“change la FORME .........,,.... 3 
“change la FORME et la TAILLE .. ; 


“change la FORME et la COULEUR . > 


2EP4 


>RQ 
MR 
SRT< 
>GU< 
3JK< 
?ÀL< 


>FM< 
IMN< 
?MP< 
>FQ 
>NR< 
oUT< 


>GJ< 


?BD« 


?VE< 
2HF< 
>AG< 
>FH< 
?KJ< 
#BK< 
>FL< 


1289 GOSUB 1426 

1290 z=h(1) XOR h(2):c=(2 OR 5)\2:t=8-(z OR 6): ORIGIN 5 

44,200:G0SUB 2329 

1300 GOSUE 1439:GO0SUB 1449 

1310 NEXT :i 

1326 GOSUB 2665:BORDER Z2:LO0CATE 2,2:PRINT'X Autres exe 

mples X* 

1336 FOR i=i T0 S:RANDOMIZE TIME 

1349 GOSUB 1419 

1350 h(2)=INT (RND#8):z=h(2):c=(2 OR 5)\2:t=8-(z DR 6):0 

RIGIN 544,209:GO0SUB 2329 

1366 GOSUB 1420 

1379 z=h(1) XOR h(2):0RIGIN 288,176:G0SUB 2344 

1389 GOSUB 1430:G0SUB 1446 

1399 NEXT i 

1409 RETURN 

1419 h(1)=INT (RND#8):z=h(1):c=(z OR S)\2:t=8-(z OR 6):0 

RIGIN 96,206:G0SUB 2329:RETURN 

1424 FOR j=1 TO 80:SOUND 12,800+3#2,4, 15,3, 1 : SOUND 

40- j5#3,2,15, 1:NEXT: RETURN 

1430 LOCATE 14,24:PRINT ap$:RETURN 

1449 SOUND 1,63,19,15,1:SOUND 1,47,10,15,3:CALL 8BB18:C 

LS#1:CLS#2:CLS#3:LOCATE 14,24:PRINT ef$: RETURN 

1450 ‘ 

1469 ‘ PROGRAMME PRINCIPAL 

1479 ‘ 

1489 GOSUB 2660:PEN 3:LOCATE 16,3:PRINT "NIVEAU: "5r: FOR 
i=i T0 B:PEN 2:LOCATE 2,3+i#2:PRINT is" Exercice No: 

“ist “5 (#1) \25CHR$ (2595) ;" machine":NEXT 

1499 FOR i=3 TO B:LOCATE 37,3+1#2: PRINT "S":NEXT 

1569 PEN 3:LOCATE 16,21:PRINT “Votre choix ? (de 1 a B) 


. 
33,2 


1516 PEN 1:LOCATE 3,24:FRINT "X ENTER X pour valider ou 
continuer" 

1528 ch$=INKEYS#:IF ch$="" THEN 1520 

1536 ch=VAL(ch$):IF ch>8 OR chti THEN PRINT CHR$ (7) :GOT 
0 1520 

1546 CLS:a=15: BORDER 15+ch 

1550 G6OSUB 2660:G0SUB 2679:GO0SUB 2724:G60SUB 2770 

1566 FEN 3:LOCATE 15,24:PRINT ch:sc=0:n=0: BORDER ch+10 

1574 FOR x=1 TO 19 

1580 CLS#4 

1596 FOR i=1 TO (ch+3)\2 

1600 h(1}=INT (RND#B#r) 

1618 NEXT i 

1620 ORIGIN 96,206:z=h(1):c=(z OR 13)\7+1:t=16-(z OR 14 
):G0SUB 2320 

1636 IF ch/2€>ch\2 THEN k=(ch+1)\2-1:f1=1 ELSE k=(ch-2) 
/2:#1=2 

1640 ON f1 GOSUB 1756,1810 

1656 ON #1 GOSUB 1889,1890 

1669 INPUT#4,w 

1676 FOR i=1 TO 56:SOUND 1,426#f1-1#2,3,15,1:SOUND 1,9, 
3,0:NEXT 

1689 IF f1=1 THEN CLS #3 ELSE LOCATE #2,2,3:PRINT #2,CH 
R$(32) 

1696 ON fl GOSUB 1790,1879 

1796 z=h(1) XOR h(2) XOR h(3) XOR h(4) XOR h(5):1F z=w 


>MH< 


>QJ< 
#AK€ 


2ML< 
>MM£ 
3PN€ 
?YP< 


>UD< 
>A6< 


1H 


?BJ4 
2MES 


ÿHL< 
>AM< 
?TN€ 
>XP< 
+PQ< 
DYR< 
FLH< 
#UJ< 


>UK< 
DUL< 
>HM< 
>XNÉ 
>VP< 
> 
>NRé 


AR 
?EJ< 


89 


THEN GOSUB 1730 ELSE GOSUB 1749 
1710 n=nti:PEN 2:LOCATE 36,24:PRINT n:CALL &BBI8:CLS #1 >LK< 
:CLS #2:CLS #3 

1720 NEXT x >ML< 
1730 LOCATE #4,1,1:PRINT #4,"X OUI X':sc=sc+1:LOCATE 28 DM 
,24:PEN 2:PRINT sc:SOUND 1,60,20,15, 1: SOUND 1,47,26,15, 
1:SOUND 1,49, 49, 15, 1:RETURN 


1740 LOCATE #4,1,1:PRINT#4, "ZX NON X':SOUND 3,430,60,15, >EN 
, 5 INT (RND#20) +1 : RETURN 

1750 FOR i=0 TO k +FP4 
1760 ORIGIN 288-32#(i#2-k),176:2=h(i+2):GOSUB 2340 >Q< 
1770 NEXT i >ER< 
1780 RETURN >VT£ 
1798 z=u >LUX 


1806 ORIGIN 544,200:c=(2 OR 13)\7+{:t=16-(z OR 14):GOSÛ >GK< 
B 2320:RETURN 


1816 z=h(2):GO0SUB 1806 DL£ 
1826 IF ch=2 THEN RETURN ?1M£ 
1836 FOR i=9 TO k-i ?GN< 
1846 ORIGIN 288-32#(1#2-k),176:z=h(i+3):GOSUB 2349 2QP< 
185% NEXT i AG 
1869 RETURN 3XR 


1870 ORIGIN 288-32#((ch-2)/2),176:2=w:GOSUB 2340:RETURN >NT< 


1880 FOR i=1 TO S6:LOCATE #3,3,3:PEN #3,i MOD 2:SOUND 1 >AU 
,200-142,3,15,1:PRINT K3,CHR$ (63) :NEXT:PEN #3, 1:LOCATE 
#3,3,3:PRINT #3,CHR$ (63): RETURN 

1890 FOR i=1 TO S6:LOCATE #2,2,3:PEN #2,i MOD 2:SOUND 1 CV 
,830-i#2,3,15,1:PRINT #2,CHR$(63):NEXT:PEN #2, 1:LOCATE 
42,2,3:PRINT #2, CHR (63) :RETURN 


1909 ‘ 2ML< 
1919 ‘ PRESENTATION NIVEAU 2 ?TM< 
1929 ?PN£ 


1939 CLS:GOSUB 2660:PEN 3:LOCATE 16,3:PRINT "NIVEAU 2": :BPé 

PEN 1 

1949 LOCATE 4,6:PRINT "On ajoute une quatrieme propriet ?FQ< 

e “ 

19564 LOCATE 19,8:PRINT "aux figures: 1'ASPECT" + IR< 

1969 LOCATE 9,10:PRINT "Elles peuvent donc etre“:LOCATE ?RT4 
12,12:PEN 2:PRINT "VIDES ou PLEINES" 

1979 PEN 1:LOCATE 6,14:PRINT "On dispose donc maintenan *BU“ 

t de:" 

1988 PEN 2:LOCATE 7,16:PRINT "16 FIGURES et de 16 MACHI :MV< 

NES “ 

1999 FEN 1:LOCATE 19,18:FRINT "numerotees de 9 à 15."  ?GW 


2800 LOCATE 14,24:PRINT ap$ #1C< 
2019 CALL &BB18:CLS:GOTO 1486 ED 
2020 ‘ ?FE 
2030 ‘ CHAINE DE MACHINES ?BF< 
2046 ‘ >HG< 


2056 GOSUB 2660: BORDER 17:LOCATE 12,5:PEN S:PRINT "CHAI >BH€ 

NE DE MACHINES" 

2964 LOCATE 3,8:PEN 1:PRINT "Il faut taper le numero de >NJ< 
la figure":LOCATE 19,19:PRINT"qui sort de la machine." 


2676 LOCATE 3,12:PEN 2:PRINT"Choisissez la longueur de >AK< 


la chaine" 
2086 LOCATE 16,15:PEN 1:PRINT “De 1 a 5" >NL< 


90 


2990 r$=INKEVS:IF r$="" THEN 2996 

2100 RI=VAL(R$):1IF R12S OR riti THEN PRINT CHR$ (7) :GOTO 
269% ELSE CLS 

2119 GOSUB 2660 

2120 PLOT 6,326: DRAW 646,326: PLOT 0,48:DRAW 646,48: PLOT 
536,409: DRAW 536,326:PLOT 256,4: DRAW 256,48:PLOT 418,0 
:DRAH 416,48 

2130 LOCATE 18,24:PRINT "FORCE: "s;ri:LOCATE 28,24: PRINT 
"POINTS: " 

2146 GC=0:h=TIME 

2150 r=2:G60SUB 2776 

2169 h(9)=INT (RND#16) 

2170 FOR k=ÿ TO ri-1 

2186 ORIGIN 32,296-k#52:2=h(9):c=(z OR 13) \7+i:t=16-(z 

OR 14):GO0SUB 2329 

2196 FOR i=ÿ TO 4:h(i+1)=INT (RNDx16):z=h(1+1): ORIGIN 56 

+1#112,272-k#52:GO0SUB 2349 

2206 LOCATE 2,24: INPUT "Figure No:";n 

2219 z=h(0) XOR h(i+i):IF z=w THEN LOCATE 36,3: SOUND 1, 
63,20,15,3:PRINT "XDUIX":ORIGIN 32+(1+1)#112,296-k#92:c 
=(z OR 13)\7+1:t=16-(z OR 14):G0SUB 2320: sc=sc+1:LOCATE 
35,24: PRINT sc:H(0)=Z:LOCATE 2,24:PRINT EF1$:G0T0 2236 


2226 SOUND 1,430,20,15,,,29:CLS:G0T0 2110 
2230 NEXT:h(0)=z:NEXT 

2249 h=(TIME-h)/300:LOCATE 35,2:PRINT "TEMPS":LOCATE 35 
PRINT USING “H#.#':h:LOCATE 36,4:FRINT "sec" 

2250 SOUND 1,60,19,15,1:SOUND 3,47, 10,15, 2:SOUND 1,39, 2 
0,15,3 

2260 LOCATE 2,24:PEN 1:PRINT"Une autre (0/N) 

2270 r$=INKEYS: IF r$="" THEN 2270 

2280 IF r$="o" OR r$="0" THEN CLS:G0TO 2056 ELSE RETURN 


2290 ‘ 

2309 ‘  DESSINS FIGURES-MACHINES 

2319 

2329 ON z+1 GOSUB 2366,2360,2366, 2360, 2380, 2380, 2286, 23 
80, 2370, 2370, 2370,2370,2390,2390, 2390, 2390 

2336 RETURN 

2349 ON z+1 GOSUB 2406,2419,2420, 24230, 2440, 2450,2460, 24 
79, 2486,2490, 2506, 2510,2520, 2530, 2540, 2550 

2350 RETURN 

2360 FOR j=-att TO att STEP 2:FLOT -5QR((a#t)"2-5°2),3, 
ciDRAW SGR(a#t)"2-5*2), J:NEXT: RETURN 

2376 PLOT axt,9,c:FOR g=0 TO 360 STEP 19:DRAW a+t+C05(g 
},a#t+SIN(q) :NEXT:RETURN 

2380 FOR j=-a#t TO att STEP 2:FLOT j,-axt,c: DRAM j,att: 
NEXT:RETURN 

2396 PLOT -a#t,-axt,c:DRAW axt,-att:DRAH axt,att: DRAW - 
att,a#t:DRAW -axt,-axt: RETURN 

2409 GOSUB 2620:PLOT 24,16:DRAW 24,32:DRAW 49,32: DRAH 4 
9,24: DRAM 24,24: DRAW 32,24: DRAW 40, 16:PLOT 26,16: DRAM 2 
6,30:DRAW 38,30: DRAW 38, 26: DRAW 26,26: DRAW 38, 16: RETURN 


2419 GOSUB 2626:PLOT 32,16:G60SUB 2619:RETURN 

2420 GOSUB 2620:PLOT 38,32: G0SUB 2609:RETURN 

2430 GOSUB 2629:PLOT 24,32:60SUB 2600:PLOT 44, 16: GOSUB 
2610:RETURN 


> JM 
?LD< 


*EE< 
2QF< 


>UG< 


?KH< 
ARE 
?CK< 
TL 
2NM< 


2MN< 


HE“ 
?UF< 


2WGK 
>UH< 
sFJ< 
?KK< 
LL£ 
3 JM< 
>AN€ 
#QP< 
>DF< 
HG 
>BH< 


?PJé 
2ME< 


?RL& 
?RME 


2YN£ 
?XP< 
>AQ< 


)FG< 


RH 
>WJ< 
A LS. 


2449 GOSUB 2629: PLOT 

2454 GOSUB 2629: PLOT 

2619:RETURN 

2468 GOSUB 2629: PLOT 

2609:RETURN 

247% GOSUB 2626: PLOT 

664:PLOT 48, 16: GOSUE 

2486 GOSUB 2626: PLOT 

2499 GOSUB 2629: PLOT 

2614:RETURN 

2569 GOSUB 2626: PLOT 

2696: RETURN 

2514 GOSUB 2629:PLOT 6,16:G0SUB 2589:PLOT 38,32 

660:PLOT 49,16:G0SUB 2610:RETURN 

2929 GOSUB 2626: PLOT 12,16: G0SUB 2506: 

2594:RETURN 

2536 GOSUB 2626: PLOT 

599: PLOT 48,16:G0SUB 2616:RETURN 

2545 GOSUB 2626:PLOT 6,16:GO0SUE 2589: PLOT 

999: PLOT 56,32: G0SUB 2666: RETURN 

2559 GOSUB 2620:FLOT 16,14: DRAM 16, 

4,32:FLOT 8,32:DRAW 24,32:PLOT 8,36:DRAW 24,30:PLOT 22, 

14:DRAW 22,24: DRAW 32,24: DRAW 32,14:DRAW 22,14:PLOT 2 

16:DRAW 24,22: DRAW 30,22: DRAW 30, 16: DRAW 24,16 

2566 FLOT 38,24: DRAM 38,14:DRAH 48,14: DRAW 46,24: DRAW 4 

b,24:DRAW 46,16:DRAW 46,16:DRAW 46,24:PLOT 54,14:DRAH 5 

4,32: DRAN 56,32: DRAW 56,14:FLOT 54,28: DRAW 58,28:PLÛT 5 

4,2b:DRAW 58,26 

2574 RETURN 

2584 DRAWR 8,16: DRAWR 8,-16:FLOTR -14,4:DRAKR 12,6:PLOT 

R -12,-4:DRAWR 6,14: DRAUR 6,-14:PLOTR -8,6:DRAWR 4,0:RÈ 

TURN 

2596 DRAWR 6,16: DRAWR 14,6:PLOTR -14,-7:DRAWR 8,9: DRAWR 
9,2: DRAWR -6,0:PLOTR 6,-10:DRAWR 0,14: DRAWR 12,6:RETUR 

N 

2606 DRAWR -12,0:DRAWR 9,-16:DRAWR 12, 
-19,0:DRAUR 9,12: DRAWR 15,0:RETURN 

2616 DRAUR 6,16:FLOTR 2,-16:DRAUR 6,16:FLOTR -8,0:DRAWR 
14,9:PLOTR 9,-2:DRAMR -14,0: RETURN 

2620 FLOT 0,0,1:DRAW 64,9:DRAW 64,48:DRAH 6,48: DRAH 4,9 

:PLOT 2,2:DRAN 62,2:DRAW 62,46: DRAW 2,46: DRAW 2,2:RETUR 

N 

2636 

2644 ‘ SOUS-PROGRAMMES CADRES 

2658 ‘ 

2669 ORIGIN 9,9: DRAW 639,0,1:DRAW 639,399: DRAW 9,399: DR 

AW 0,0:PLOT 2,2:DRAW 637,2:DRAW 637,397: DRAW 2,397: DRAH 
2,2:RETURN 

2676 PEN 1:LOCATE 4,9:PRINT "ENTREE 
SORTIE" 

2689 ORIGIN 49,144:G60SUB 2710 

2690 ORIGIN 184,144:DRAW 272,6:DRAH 272,136: DRAM 6,136: 

DRAW 6,6:PLOT 0,168: DRAH 272,198 

2760 ORIGIN 488,144:G0SUE 2719:RETURN 

2716 DRAW 112,0,1:DRAW 112,136: DRAW 9,136: DRAW 4,0: FLOT 
9,108: DRAW 112, 198: RETURN 


24,16:GO0SUB 2594:RETURN 
16,16:G0SUB 2599:PLOT 44, 16: GOSUB 


16,16:GO0SUB 2599:PLOT 59,32: GOSUB 


2614:RETURN 
24,16:GO0SUB 2589:RETURN 
14,16:G60SUB 2586:PLOT 46,16: GOSUB 


14,16:G0SUB 2580:PLOT 48, 32: GOSUE 


:GOSUB 2 


ENT A ie ENCIIC 
FLUIT TU 19 


à 


6,16:G0SUB 2386: PLOT 


G:PLOTR 6,2: DRAWR 


MACHINES 


2729 ORIGIN 6,9:PLOT 0,44,1:DRAW 639,44: PLOT 6,124: DRAH : 


639,124:PLOT 9,314: DRAH 639,314:PLOT 536,466: DRAH 536, 


24,16:G0SUB 2 : 
24,16:GOSUE 2 >? 


32:FLOT 14,14: DRAH 1 : 


?DL< 
MM< 


?6N< 
b,16:G0SUE 259%:PLOT 37,32:GOSUB 2 :WP< 


>60: 
> IR 


?FH< 


PRIE 


>JP4 


:HQ< 
2BR< 


>QT< 


3TJ< 
3CK<. 
?GL< 
FNM< 
#AN€ 


>QP< 
?BQ< 


a 


PVTé 


AR 


FRE 


DA 


WM< 


2MR< 


?GL< 


MACHINES 


u 

30 LOCATE 3,26:PRINT "MACHINES":FOR 1=6 TO 7:LOCATE | 
Stix3, 19:FRINT m$(1}:SOUND 1,127-1#19,10,15,1:LOCATE 16 
+1#3,20:PRINT n$(1):NEXT 
2740 IF r=2 THEN FOR 1=8 TO 15:LOCATE -9+1#3,21:PRINT m 
$(1):LOCATE -8+1#3,22:PRINT n$(1):NEXT 


2750 PEN 1:LOCATE 3,24:PRINT "EXERCICE No: SCORE 
SUR: “ 

2760 RETURN 

2770 FOR i=0 TO r#B-1:0RIGIN 24+i#32#(3-r),370:z=1:c=(2 

OR 13)\7+iit=16-(2 OR 14):a=8:G0SUB 2320: SOUND 1, 126-i 

#5, 10,15, 1:NEXT 


2784 FEN 1:FOR 1=0 TO r#8-1:LOCATE 2+1#2x(3-r), 4: PRINT 


n$ti};: SOUND 1,120-145, 10,15, 1:NEXT: RETURN 
2799 

2809 ‘ PRESENTATION 

2819 ‘ 


2820 p$(1)="1000100110001109106101910010111100110" 
2630 p$(2)="1000101001010010100101910010100091001" 
2849 p$ts )="110119100101000016%191011910109001000" 
2850 p$(4)="1010101111010000111101010110111060110" 
2860 p$(5)="1000101001010000100101010010 10000008 1 " 
2870 p#(6)="1000101001010010100101910010190001 001" 
2880 p$(7)="1000101001001109100101910010111100110" 
2890 INK 1,26:0RIGIN 5,0: INK 2,1: INK 3,3 

2900 DIM p(7,37) 

2919 FOR i=i TO 7 

2920 FOR j=1 TO 37 

2930 pli, j)=VAL(MID# (pli), i,1) 

2940 NEXT:NEXT 

2950 FOR 5=0 TO 1 

2969 FOR i=1 TO 7 

2970 FOR j=1 TO 37 

2980 h=INT (RND#B) #2+ (1-5) 

2990 SOUND 33,430+i#12,2,15,5,5, 10 

3000 LOCATE 19,24:PRINT #$(h) 

3619 SOUND 12,66+i*6,2,15,5,5 

3620 IF pli,i)=1 THEN PLOT 
8x6: LOCATE j,i+s#8: PRINT 
391-(i+s*8)*16,0 ELSE GOTO 
3930 NEXT j 

3049 NEXT i 

3050 INK 2,2: INK 3,6: INK 1,24 

3960 NEXT s 

3070 INK 1,0:LOCATE 19,24:PRINT CHR$ (32 


f$(h):PLOT 306,32: DRAM 16%), 
3034 


3686 PEN 1:FOR i=6 TO 6:FOR j=1 TO 37:SOUND 57,856-j*20 : 


,3,9+1,2,1:SDUND 56,120+J420,5,9+1,1,1:SOUND 60,1209-1% 
75,2,15,2,1:LOCATE 3j,17+i:1F MID$(p#(i+1),3,1)="1" THEN 
PRINT CHR$ (143) 

3696 NEXT:NEXT 

3190 FOR i=1 TO 300: INK 1, INT (RND#26) +1: INK 2, INT (RND#2 
6)+1:INK 3, INT (RND#26)+1:SOUND 12,340-1,3,15,1:SOUND 33 
,606+1#2,2,14,1:NEXT 

3116 INK 1,6:INK 2,2:INE 3,6 

3124 FOR h=6 TO 1069:NEXT:CLS 

3136 RETURN 

3146 DATA “Plein “,"Vide ","Disque", "Carre ","Bleu ", 
“Rouge ", "Grand ","Petit "© 


306,32,1:DRAW 16#j,391-(i+54 > 


>WN€ 


>NF< 
?CQ< 


»XR< 
>XT< 


>DN€ 
?TE< 


?1F< 
UG< 
2NH< 
2MJ< 
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TRACE 


Philippe BOINEAU 


Nous l'avons déjà dit, le BASIC de 
l'AMSTRAD est l'un des plus complet 
qui soit. Mais il possède quand même 
quelques lacunes. Nous allons essayer de 
remédier à l’une d'entre elles. Le CPC 
possède deux fonctions très utiles : 
TRON et TROFF. Elles permettent de sui- 
vre l'évolution d'un programme. En 
revanche, ces instructions ne permettent 
pas d'exécuter un programme pas à pas. 
Je vous propose donc de créer cette 
nouvelle fonction que l'on nommera 
TRACE. Pour savoir comment procéder, 
allons faire un petit tour du côté de la 
ROM supérieure (&CO000 à &FFFF). Nous 
allons étudier la fonction TRON qui 
débute en &DDE2 : 


DDE2 LD a,FF 
DDE4 JR DDE7 
DDE7 LD (AE38),a 
DDEA RET 


Nous voyons que la fonction TRON place 
&FF à l'adresse &AE38 (&AE1F pour 
6128 et 664). 


Christophe PAVEN 


PEIGNEY Michaël 


CIESIELSKI Frédéric 


Nous allons maintenant étudier la ‘’bou- 
cle de l'interpréteur'’, c'est-à-dire la rou- 
tine qui fait que vos programmes BASIC 
tournent. On observe que si &FF est mis 
en &AE38, il y a appel d'une seconde 
routine qui affiche le numéro de ligne 
exécutée à ce moment ; or, qui dit affi- 
chage dit appel de TXT OUTPUT 
(&BB5A). 


Nous allons donc d'abord créer une rou- 
tine qui mettra &FF en &AE38, ce qui 
correspondra à l'instruction TRON. Puis, 
notre routine devra détourner le vecteur 


dans les DATAS !" 


EM !) 


&BB5A et vérifier si l'accumulateur pos- 
sède le code ASCII du ‘‘]"" (&5D) ; en 
effet, après chaque numéro de ligne affi- 
ché, il y a un ‘‘J"”’. Si tel est le cas, on 
appellera la routine KM WAIT CHAR 
(&BB0O6), puis on retournera à la ‘’bou- 
cle de l'interpréteur''. 

Nous allons dons créer les RSX ITRACE 
ainsi que ITRACEOFF qui annulera les 
effets de la précédente. 

Le listing BASIC se charge de l'implan- 
tation du binaire et vous pourrez utiliser 
les nouvelles instructions après un RUN. 
Il ne nous reste plus qu'à vous souhai- 
ter une bonne chasse aux erreurs. 


19 ## TRACE & :TRACEOUFF #4 3 KB: 
2 26 FOR 1=4A006 TO RAW7Z:READ AS:FOFE I, VAL (MR 4A$) : J=J+ CC 
= U VAL("R"4AS):NEXT: IF Jé211169 THEN FRINT CHR# (7) ; "ERREUR 


| 25 ‘SUPFRIMEZ LE REM DE LA LI-GNE 36 (ET SEULEMENT LE R 2KH< 
SI VOUS FOSSEDEZ UN 6128 OÙ UN 664 

39 REM POKE LAO3C,4IF:FOKE BADGE, &IF >ED< 
49 DATA 1,9,49,21,14,46,C3,D1, BCE, AD, C3, 18, 40,54,52,41 > UE: 
,43,05,06, 06, 06, 09, 09, ZA, SA, BB, 32,49, A6, 3A, SB, BB, 32, dA, 

A9, ZA, SC, BB, 32,48, A0, 3E,C3, 32, SA, BE, 3 
0,32,5C,BB,3E,FF, 32,3 
79,00, 00,00, 00,00, 00, 00, 1,59, Ad 


,3F,32,58,BB,3E, À 


8,AE,C9,4F,D6, SD, C2, 48, A0, CD, 6,BE, 


50 DATA 21,87,40,C3,D1,BC, SE, A0, C3, 68, 40,54,52,41,43,45 ;VF< 
,4F,46, C6, 09, 09, 09, 09, 09, 3E, 00, 32, 38, AE, CD, 37, ED, C9 
bo CALL A9O0:CALL SAGSO:DELETE 19-60 KG 


BETTON Franck 


PEIGNEY Jack 


Nous avons le plaisir de vous présenter les heureux 
gagnants, toutes gatégories confondues, qui sont 
dorénavant possesseurs d’un PC 1512 grâce à leur 
participation au concours CPC... 


Frédéric CIESIELSKI pour Starwar 
Michaël et Jack PEIGNEY pour Vision 
Franck BETTON pour Top Calcul 
Christophe PAVEN pour Photo-Sprite 
Fabien SPERANZA pour Relief 


SPERANZA Fabien 


55-57, rue du Tondu 33000 Bordeaux. Tél : 56.96.3523 Poste 31 


LE PREMIER ÉDITEUR DE LOGICIELS UTILITAIRES 


NOUVEAUTÉ 


ZENITH : La capacité de stockage des 
disquettes 3 pouces est au maximum de 
178 Ko. Il est donc difficile de stocker plus 
de 4 programmes par faces. Ce pro- 
gramme de compactage réduit les pages 
de présentation ainsi que les program- 
mes (Basic ou Binaire) er un minimum de 
place. Par exemple si vous possédez un 
fichier organisé comme suit: 

ECRAN-BIN 3K 
JEUX-BIN 10K 


LOADER-BAS 1K ? 
ECRAN BIN VAR NN 
EUX BIN 42Kk Un 
Le loader-bas aura disparu et vous 
aurez gagné 47 Ko de place libre sur 
votre disquette. 


ZENITH : DISC : 250 F TTC 
NOUVEAUTÉ 


L’'INTERPRETE : la majorité des 

logiciels existants sont dans la langue de 

Shakespeare, et l'utilisation n'en est que 

plus difficile (Utilitaires - Jeux d'aventures 

Jeux...) Ce programme vous permet de 

traduire en français ou en toute autre 

langue vos logiciels préférés. La démar- 

che est automatique et ne requiert au- 

cune connaissance particulière. 

- Mapping du disque 

- Edition des secteurs 

- Acceptation de jokers 

- Traduit plus de 500 mots à la fois 

- Repère automatiquement sur la 
disquette les textes à traduire 


L’INTERPRETE : 
DISC : 290,00 F TTC 


NOUVEAUTÉ 
TRANSLOCK II permet de récu- 


pêrer les programmes et les présenta- 
tions avec leurs encres respectives. La 
relocation est automatique, et tous les 
renseignements nécessaires sont affichés 
en permanence à l'écran. 


TRANSLOCK II : 
DISC : 225,00 F TTC 


Label zeni-qualité : 
EÉCHOSOPFT : DISC 395 F TTC 


Numéro 1 au hit parade des utilitaires : 


————— NOUVEAUTÉ 


BOURSE 2000 


QUAND ACHETER, 
VENDRE, PRENDRE 
DES BENEFICES ? 


Bourse 2000 répond à ces questions et 
à bien d'autres encore avec des instru- 
ments empruntés aux milieux financiers 
les plus cotés (moyennes mobiles, points 
et figures, tableaux, graphiques...). 
Bourse 2000 est livré avec un fichier de 
40 valeurs et leurs cotations depuis 
1985. 

Bourse 2000 est un logiciel évolutif ; 
VOUS pourrez vous procurer les cotations 
de n'importe quelle valeur sur 2 années 
et plus à ESAT software [listing 20 F, 
disc 50 F). 

Bourse 2000 permet de visualiser la 
tendance d'une valeur (hausse, baisse, 
stagnation) et de situer les moments 
d'intervention (achats, ventes...). 


Clubs et associations : contactez ESAT 


. software pour des tarifs préférentiels. 


BOURSE 2000 : 
- AMSTRAD CPC 6128 
seulement : 450,00 F 
- AMSTRAD PCW 8256-8512 
(disponible en août): 750,00 F 
- Compatibles PC-XT (disponible en 


août) : 1200,00 F 
- ATARI 520-1040 ST (disponible en 
août) : 990,00 F 


ET TOUJOURS : 


HERCULE : Disc 250 F TTC 
- Le complément de HERCULE (ver- 
sion 3,0 ou 4,0) est disponible contre 


80 F + 20 F de port. 


Nom : 
Adresse : 


NOTRE CATALOGUE EST DISPONIBLE CHEZ | 
VOTRE REVENDEUR OÙ CHEZ ESAT CONTRE 20F 


EN TIMBRES (Remboursés à la première 


commande). 


| 


Logiciels commandés : 


IMPRESSION : Programmation 

avancée de l'imprimante - 65 comman- 

ces RFX disponibles. 

IMPRESSION : Cass : 200,00 F 
Disc : 220,00 F 


TAPE LEADER : ce logiciel duplique 
vos bandes magnétiques avec un choix 
de 10 vitesses de sauvegardes. Durant la 
duplication, les renseignements sont affi- 
chés sur l'écran. 


CASS : 175 F TTC 
DISC : 205 F TTC 


VIEW TEXT : CASS 135 F TTC 


ET NOS ACCESSOIRES : 


STYLO OPTIQUE : 6128:415F 
8256: 830 F 
PC : 990 F 
SCANNER : 890 F 
TUNER TV :1500 F 
MULTIFACE II : 600 F 


Notre SOFT PSYCHOTEST : 
DISC : 135 F TTC 
CASS : 100 F TTC 


Abonnements 
MEPHISTO MAGAZINE 
(Routines de transferts) 

330 F 12 N° - Port gratuit 


BON DE COMMANDE 
| Prévoir 25 F de port + 20 F pour le contre remboursement. | 


Prénom : 


£E S6 8€ 66 - suoneai) ŒUYZI 


TES 
ANNONCES 


PE 1 4 


La place réservée aux petites annonces est 
limitée. En conséquence, celles-ci passent 
dans leur ordre d'arrivée. Par contre, les peti- 
tes annonces farfelues sont systématique- 
ment rejetées... De même, comme il est peu 
probable qu'il existe des ‘‘’généreux dona- 
teurs'’ de matériels ou de logiciels, les peti- 
tes annonces faisant appel à ces philantro- 
pes ne seront insérées que si la place libre 
le permet. 

Seront refusées toutes les annonces visant 
à vendre ou échanger des listes ou copies de 
logiciels non garantis ‘‘d’origine’’, ainsi que 
toute annonce incitent au piratage. 

En conséquence, réfléchissez bien avant 
d'envoyer vos textes. 

Les petites annonces doivent impérativement 
nous parvenir sur la grille (découpée ou pho- 
tocopiée), le texte étant rédigé à raison d'un 
caractère par case. 

Enfin, toute annonce non accompagnée de 
timbres ne sera pas insérée. 


Vends CPC 464 monochrome + logiciels + 
deuxième manuel, 1200 F ; adaptateur péritel, 
200 F. Tél. 1.30.43.63.75. 


Imagewriter Il, janv. 86, à vendre 4500 F. Jean- 
Michel, tél. 48.52.34.94 où 46.47.68.41. 


Vends CPC 6128 couleur + nombreux livres et 
logiciels originaux-micro, 2500 F ; autres : liste à 
demander au 75.84.41.53, DROME. 


Vends CPC 664 mono + synthé. vocal + nbrx logi- 
ciels, valeur 8000 F, vendu 4000 F cause achat PC, 
urgent. Tél. 16.1.64.41.79.15 PAT. 


Cherche contacts avec lecteur Jasmin Amstrad + 
-1M. Tél. 74.21.18.29. 


Vends Amstrad CPC 464 couleur + 50 logiciels 
(jeux et utilitaires), 2500 F ; 30 1ers SVM, 300 F. 
Tél. 69.05.05.62, après 20h, demander Philippe. 


Vends Amstrad 664 avec moniteur couleur + 7 
disquettes vierge, 3200 F port compris, tél. 
31.98.48.93. 


Je cherche K7 ‘Code de la route’’ qui ne serait plus 
éditée ou échange nombreux logiciels. Tél. 
45.92.63.74 (départ. 16). 


Vends programmes originaux disk Pawn, Pas.Vent 
1-2... 95 F PCE. Jérome Desvaux, 78 Ragay- 
Lussac, 59130 LAMBERSA (précisez votre 
téléphone). 


Vends logiciels explorateur 3 + disk éducative 2 
(Cobra, 50 F) + 3 jeux mastertronic en un. Tél. 
85.85.23.40, après 18h. 


Vends lecteur-cassettes + cordon, 300 F ; boîte 
rangement 10 disc, 70 F, l'affaire Sydnex (Cas.), 
75 F, O00J0B, 200 F. Tél. 46.60.71.15, après 
18h. 


Vends CPC 6128 sous garantie couleur + cordon 
Din pour magnéto + très nbreux jeux, le tout : 
7000 F TBEG + revues. Tél. 96.43.88.79. 


Cherche correspondant pour échange logiciels disc 
ou K7. Ecrire à MELEDO Claude, 8, rue A.- 
Lavoisier, 79000 NIORT, rep. assurée. 


Vends Amstrad CPC 464 monochrome + jeux + 
livres, état neuf, le tout : 1800 F. Tél. 34.19.23.98. 


Vends K7 : Samantha Fox, Sorcery, Cauldron, Gla- 
diator, 80 F pièce ou 300 F le tout. Tél. 
33.66.04.82, après 19h, demander Christophe. 


Vends CPC n° 1 à 8, 17 à 21,15 F ; Microstrad 
n° 1à 4,18 F ; Hebdogiciel n° 9 à 130, 8 F port 
en sus. Eric, tél. 62.96.73.25. 


Affaire ! Vends Texas Instrument 99/4A + 33 jeux 
dont Pac Man, Parsec et le Poker + 1 module de 
basic simple et étendue + 2 manettes + transfor- 
mateurs, prix à débattre 1590 F. Tél. 67.70.22.36. 


PCW 8256 cherche cont. résistance mat. + jeux. 
DEFLACHE G., Les Bleuets B, 38780 PONTEVE- 
QUE, tél. 74.57.23.13. 


Vends CPC 464 mono + lecteur DDIT + stylo opti- 
que Esp + adaptateur couleur + logiciels et revues, 
le tout : 4000 F. Tél. 48.52.86.76. 


Vends l'ordinateur individuel n° 2 (1978) à 85. CLI- 
VET, 1, rue Courvoisier, 25110 BAUNE-LES- 
DAMES. 


Cherche mirage-imager 464 souris AMX + utilitai- 
res. Faire offre écrite à Paul PLAGNE, Sansard, 
15110 CHAUDES-AIGUES. 


CPC 664 cherche Cobol sous C/PM. Ecrire à Vin- 
cent GUIDECOQ, 4 et 6, rue Notre-Dame. 
Pontmain, 53220 MONTAUDIN. 


Vends CPC 464 mono + lecteur de disquettes + 
joystick + logiciels (environ 150) + revues + 
livres : 4000 F. Tél. 60.20.64.08 


Vends originaux disc : Eden Blues, Tony Truand, 
3D-Fight, 5e Axe, Spindizy : 150 F pièce. M. 
CROCQ - 29, av. Kleber - 78110 Le Vesinet. 


Vends CPC 6128 couleur + lecteur 5°’ + 70 disk 
3‘ + 100 disk 5'’ + 600 logiciels. Etat impecca- 
ble. Laurent - tél. 48.41.92.72 vite ! 


Vends jeux et utilitaires K7 pour CPC + livres 
revues (Apple, CPC, TI57). Tél. 43.24.39.46 dès 
15h00. 


Urgent : recherche CPC numéros 5, 9 et 12. Ecrire 
à PROUTEAU Philippe - 114, route de La Pyramide 
- 49130 Les Ponts de Ce. 


Vends CPC 464 mono + joystick + 40 K7 + jeux 
+ 2 log. de musique + synthé vocal + livres + 
revues + 10 mois de garantie + manuel + 4 K7 
vierges. Tél. 43.01.99.93. 


Vends synthétiseur vocal Amstrad CPC SSA1 sté- 
réo : 250 F. Tél. 75.94.62.89 le soir. 


Vends drive 5° 1/4 pour 6128 2 faces 720 Ko. For- 
maté comme neuf : 700 F. Tél. 43.83.77.17 de 
19h00 à 20h30. 


Vends ou échange jeux utilitaires sur Amstrad sur 
disk. Tél. 45.72.13.78 après 19h00 et demandez 
Stéphane. 


Vends IMP MCP40 + modulateur Péritel, UHF coul 

+ ZX81 + EXT 64 Ko. Recherche CMP2000. 
DIOT J.-Luc - 20, rue de La Citadelle - 51300 Vitry- 
Le-F. 


Achète logiciels éducatifs primaire, collège. Faire 
offres FAVIER - collège ND des Oliviers - 15170 
Neussargues. 


LES PETITES ANNONCES ET LES MESSAGES 


Attention, vos PA seront mises sur le serveur avant la parution du journal 


Coupon à renvoyer accompagné de 3 timbres à 2,20 F à: 
SORACOM, La Haïie de Pan — 35170 BRUZ 


Gagnez du temps ! Sur Minitel 36.15, tapez MHZ 
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Vends imprimante GP80 ou échange contre graphi- 
cop ou souris AMX ou EXT 256. DUFETELLE - 6, 
rue Fremiet Le Hamelet - 76360 Barentin. 


Vends CPC 464 moniteur couleur + joystick + une 
centaine de logiciels : 2000 F. Tél. 42.27.69.22. 
PS : nombreuses revues. 


Vends RS232C : 400 F. FD1 : 1100F. Livres micro 
application moitié prix. J.-M. BRENOT - tél. 
46.55.40.82. 


CPC 464 + drive cherche correspondants. Vends 
le jeu ‘‘impossible mission’ sur disc (100 F). Ecrire 
à ANTIN Claude - 11, rue du Bois - 71640 Givry. 


Vous avez perdu docs ou notices. Je vous les pro- 
cure (photocopies) : coût modique. RENS. Tél. 
31.74.57.16 demander Ludovic. 


Vends CPC 464 mono + doc + 20 originaux K7 : 
1590 F. DDI : 1490 F. (Si le 464 est vendu) + 
livraison ! Thomas tél. 1.47.41.50.65 après 
19h00. 


Cherche contacts sur Marseille (6128). Tél. 
91.69.24.27, demander Stéphane (nombreux 
jeux). 


CPC 464 couleur achète programmes jeux et utili- 
taires sur K7. Durocher L. - 14, rue du Commerce 
- 84000 Montpellier. 


A vendre 4 premiers numéros de PCompatibles 
MAG : 55 F. Ecrire À. GAYER - cidex 15 - 64230 
Denguin ou tél. 59.68.65.66. 


Vends Commodore C64 lecteur disk 1541 Power 
Cardtridge logiciels garantie mars 1988 : 3500 F. 
Tél. 48.84.17.70. 


Vends Orphe SRAM1 Turbo 416 disc boulderdas 
I The Last V8, K7. M. BOULAY - 30, rue du Mont 
Joly - 74170 St-Gervais. 


Vends imprimante DMP1 + logiciel de copy 
d'écran maison TBE : 1000 F. Tél. 34.85.16.76 le 
soir après 19h00. 


Cherche deuxième lecteur 3’ pour CPC 464. Tél. 
34.89.16.76 le soir après 19h00. 


Vends trucs et astuces : 100 F. Programme pour 
CPC : 80 F. Commu. av. CPC : 60 F. Lecteur disq. : 
110 F. PERRIN Alain - 3, cité Liberté - 38220 Vizille. 


Vends PCW 8256 + divers logiciels, état neuf : 
4000 F. Tél. 48.84.17.70. 


Vends CPC 464 couleur, très nombreux jeux, joys- 
tick, doc. À débattre : 2700 F. Tél. 76.25.62.31. 


Vends CPC 464 mono. + DD1 + lecteur 5° 1/4 
et carte 256 Ko Vortex + nombreux softs, docs, 
revues et livres. Prix à débattre. Gilles au 
34.62.39.36. 


Achète au moins disant multiplan pour CPC en bon 
état avec documentation. Tél. 83.43.49.265 le soir. 


Vends CPC 6128 mono + 21 disq. pleines + docs 
+ une centaine de revues françaises et anglaises : 
3000 F. Tél. 42.22.04.45 à Paris. 


Vends stylo optique électrique studio compatible 
464, 664, 6128 : 300 F port compris. Tél. 
25.75.38.39. 


Vends modem DTL 2100 avec 3 programmes + 
disc pleins : 30 F ou vide 20 F + livres + CPC et 
Ams-Mag 1 à 20 : 10 Fpièce. David 20.93.67.24. 


Affaire : vends 464 couleur + D-DI1 + DMP2000 
+ super-paint + textomat + nombreux logiciels 
de jeux en vue achat d'un PC. Ecrire à FERRENDIER 


Hervé - 4, av. Guy de Maupassant - 13008 Mar- 
seille (prix 4000 F à débattre). 


Vends disk originaux 120 F : Geste Art, Knight 
games they soldes | et Il, etc. En cadeau, lecteur 
K7 Amstrad. Tél. 43.48.37.70 après 19h00. 


Sono puissante en hifi sans fil : 235 F. Imprim. 
MCP40 + logic. txt prêt branch. sur CPC : 800 F. 
Logic. pour Okimate 20. Tél. 90.55.91.65 pour 
doc. 


J'achète déplombeur pour CPC-PC 1512 peu 
importe le prix. Tél. 47.66.87.06, demander Lau- 
rent après 19h00. PS : pas trop cher et notice. 


Vends CPC 464 + DD1 + mirage imager + 100 
softs + doubleur Joy + 2 joystick : prix intéres- 
sant. Alexis au 1.42.04.42.99. 


Donne cours par correspondance pour apprendre 
le langage machine ou le BASIC. M. JACQUET - 33, 
bis rue Carnot - 77400 Thorigny. 


CPC 464 + DMP2000 + souris + SSA-1. Cher- 
che contacts pour échanges soft, etc. Etiles plands 
des extensions/Amstrad. Tél. 47.84.25.88 - 147, 
av. Henri Barbusse - 92700 Colombes. 


WINGS 
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-10 % 


pour les produits VORTEX 
et AMS pour AMSTRAD 


Vends 464 coul. + mon. mono + DD1 + tuner 
TV + ant. + 2 joyst. + nbses rev. + discology, 
etc. + nombreux jeux : 7000 F. Tél. 45.79.92.04. 


Vends CBM 64 neuf : 3500 F ou échange contre 
CPC 664 coul. Je donne un ATMOS et ses jeux 
avec le CBM. Tél. 47.83.46.12 sur Paris. 


Vends moitié prix logiciels originaux : 3D, GPRIX, 
GP500, Jumpjet, CAP/Dakar Galivan, Elite, Déac- 
tivators, Marrié Rattak. Tél. 64.46.57.63. 


Vends Amstrad CPC 464 couleur à disquettes + 
joystick + livres + revues + jeux, le tout pour 
3500 F. Jérome Mosselet. Tél. 39.51.08.05. 


464 disks + digitaliseur + DMP2000 + scanner 
+ nombreux utilitaires et jeux, cherche correspon- 
dant. JEF - 14, place Ravel - 95300 Pontoise. 


Vends Amstrad CPC 6128 couleur + 2 joystick + 
boîte de jeux + jeu Rally Li + jeu Le Million Il, sous 
garantie janvier 87 : valeur 4800 F vendu 3800 F. 
Tél. 1.43.26.48.04. 


LR ON RE 


TES 
ANNONCES 


Vends 3 éducatifs orig. sur disc coktel : Bigben géo- 
métie et Outre-Rhin : 90 F pièce. ESPINASSE - 196, 
rue Beauregard - 73000 Chambery. 


Vends discology pocket + base, Richelieu gestion, 
filtre monit. mono, livres pour 464. Claude - 15, 
allée des Acacias - 45450 Donnery. 


Vends aquarius + console + 2 manettes + 
magnétophone + jeux : 750 F. Tél. 22.30.10.54. 


Vends CPC 464 mono gagné concours : 1700 F. 
Vends ou échange logiciels PCW jeux et utilitaires. 
Vends crayon optique PCW ou échange contre 
RS232C/PCW. Tél. 46.80.20.62. 


Achète jeux originaux complets récents. Recherche 
Alienor, Damoclés ou similaire. CHANAL - 32, rue 
de Rilly La Montagne - 51110 Reims. 


Cherche pour CPC 6128 une imprimante 
DMP2000. Tél. 43.31.34.23. 


Vends CPC 464 vert + ext. 512 Ko + K7 : 1600 
F. Lect. 5’ 1/4 F1X-RS pour 464 + DDI1 : 1700 F. 
77 AVON - tél. 60.72.25.43 Alain après 18h00 ou 
WE. 


Vends jeux pour Amstrad disquettes 6128 : Dakar 
4x4, Ace Yie Ar Kung Fu Il cap Dakar. Ensemble 
ou individuel. Bon prix. Tél. 61.91.84.10. 


Cherche contact 464, 6128 cas. dans région 
PGtion LM, échange jeux contre utilitaire music. 
SPRITE - tél. 26.84.00.71 Reims. 


Cherche personne pouvant monter inverseur de 
drive sur 464. Cherche contact sur l'Essonne. Tél. 
60.15.48.56 Morsang sur Orge. 


Voulez-vous participer à la création d’un club Ams- 
trad à Périgueux ? Tél. 53.54.48.13. 


Cherche contact pour échange de jeux originaux. 
Tél. 48.31.88.51 - 15, cité Marcel Cachin - rue des 
Bois de Groslay - 93700 Drancy. 


Vends Canon X07 16 Ko + câble magnéto + jeux 
+ fichier : 1200 F. Tél. 34.17.48.54,. 


Possesseur d'un Amstrad CPC 6128, échange 3 
disq. comprenant 43 jeux de toutes sortes + 1 
disq. comprenant 4 jeux ‘‘airwolf, commando, 
boxing, bomb jack’ + 1 mémoire de 16 Ko pour 
ZX81 contre les 2 disq. ‘’they sold a million 1’ et 
‘’they sold a million 3°’ comprenant 4 jeux chacune 
ou un lecteur de cassettes pour Amstrad CPC. 
Appeler SOLER Michel au 48.41.80.82 après 
17h00. 


Vends CPC 464 couleur + 17 jeux (winter gamer, 
10th frame, etc.) + nombreux livres : 3500 F. 
LACOMBE Alain - 5, rue Marivaux - 94810 Orly - 
tél. 48.52.00.20. 


Vends ou échange logiciel pour CPC 464 : 25F l'un 
ou les 4 : 80 F. The Goonies, MGT, Billy la banlieu, 
space Harrier, etc. GROLLEAU Thomas - tél. 
46.36.12.82 après 18h00. 


Vends Amstrad CPC 464 monochrome + jeux + 
livres + joystick, état neuf, le tout : 1800 F. Tél. 
34.13.23.98. 


Vends imprimante Graphistar Gemini 15 x carac- 
tères définiss. Papier 127 à 380 mm, état neuf. 
Valeur 6000 F, vendu 2800 F. Tél. 34.17.48.54. 


Vends CPC 464 couleur sous garantie 07.87 : 
1900 F. Tél. 34.17.48.54. 


Achète revues CPC n° 1 à 15 et Amstrad maga- 


zine n° 1 à 3 et n° 9 à 14. Faire propositions à 
Bruno - tél. 46.38.16.95. 


95 


3 REVUES POUR LES PASSIONNES 


CPC -— REVUE DES UTILISATEURS D'AMSTRAD : en vous abonnant, vous. recevrez 
chez vous votre revue. Vous bénéficierez de réduction sur certains produits et vous recevrez gra- 
tultement 1 n° hors série tous les deux mois. 
AMSTAR : en avant première, toutes les nouveautés sur AMSTRAD -— des programmes, des arti- 
cles ! A la demande de nos lecteurs, nous prenons désormais les abonnements. 

PCompatibles MAGAZINE : la référence en matière d'initiation et de perfectionnement sur les 
"compatibles PC”. 

Attention, tous nos abonnés recoivent avant parution des souscriptions sur les nouveaux livres 1 


[1 CPC AMSTRAD 11 numéros 180F 
[1 6 numéros 105F 
[} Abonnement essai 3 numéros 55F 
[J AMSTAR 11 numéros 100F 
[] PCompatibles Magazine 11 numéros 200F 

ATTENTION ! I ny a pas d'abonnement rétroactif. 


A renvoyer à 
SORACOM 


Service Abonnement 
BP 11 —- 35170 BRUZ 


NOM ___ 2 a  —  MPTÉNOM em 


Adresse - : RE OS PS PES En ee 
Code postal s 7." Né: — . 


DatS.-=— 2... 2 Signature == ; Sn 


Merci d'écrire en majuscules. Ci-joint un chèque libellé à l'ordre de : Editions SORACOM. 
Retournez le(s) bulletin(s) ou une photocopie. 


Cet ouvrage réalisé 

dans un style très HR RE 

clair apprendra aux ï Re De nombreux 
amateurs comme aux ee 4 programmes de jeux 
professionnels à A : \ We! et utilitaires, des 
résoudre les mille et à À f \ conseils pratiques, 
un problèmes qu'ils À | trucs et astuces, 


ne manqueront pas é re LA schémas, des 4 

de rencontrer lors de F\ nn | premiers n° de CPC 
la mise en œuvre de 2" réunis en un seul 
leur imprimante. > af livre. 


Ci-joint un chèque libellé à l'ordre de : BRETAGNE EDIT' PRESSE. Retournez le(s) bulletin(s) ou une photocopie à : BRETAGNE EDIT 
PRESSE - La Haie de Pan — 35170 BRUZ. 


NOUVEAUX PRODUITS : 10 D'UN COUP 
DANS LES POINTS DE VENTE JASMIN! 


75 - PARIS 11°: Vismo 
43.38.60.00 + 1% : DF1 Centre 
Démo 42.49.24.61 e 1°: Vidéo- 
shop 43.21.54.45 e 17°: Micro- 
prog 42.93.24.58 e Le Monde en 
Marche 47.07.9703 + 01 - 
OYONNAX: Micro Boutique 
74.73.95.16 + 03 - VICHY : Au- 
vergne Info 70.59.89.98 + MOU- 
LINS : Moulins Micro 70.20.56.34 
e MONTLUÇON: Elec Buro 
70.05.02.79 + 04 - MANOSQUE 
MIC 92.72.59.92 e 05 - GAP 
Microméga 92.51.76.06 - Pape- 
terie Davagnier 92.51.01.17 e 06 
- VALBONNE : Softia 93.65.43.10 
- NICE : SI 93.96.25.96 - VIL- 
LENEUVE-LOUBET: France 
System 93.73.95.73 + 10 - 
TROYES : Micropolis 25.73.28.49 
e 11 - CARCASSONNE : Delhom 
58.47.08.94 ° 12 - MILLAU 
Huet 65.61.03.90 + 13 - MAR- 
SEILLE : L'Ordinateur Diffusion 
91.54.33.36 - Maxitronic 91.34.49.79 
- Trilogic 91.08.05.49 - MARTI- 
GUES : SOMECII 42.81.26.12 - 
AIX-EN-PROVENCE : Ludivor 
42.26.29.20 - CABRIES : Micro 
Solution 42.69.01.03 + 14 - LI- 
SIEUX : L'Ere Binaire 31.62.89.75 
- Pays d'Auge Info 31.62.15.60 - 
HERDOUVILLE : L'Impulsion 
31.47.5388 + 16 - ANGOU- 
LEME : FMIC 45.69.29.74 e 17 - 
TONNAY-CHARENTES : INFO- 
TEL 46.88.40.46 + 18 - VIER- 
ZON: Burotique 2000 48.71.64.60 
+ 19 - BRIE: Script Bureau 
55.74.43.23 e 20 - AJACCIO 
CIM 95.22.54.55 e 22 - LANION 
IOD 96.46.57.32 e 23 : GUE- 
RET : IGL 55.52.86.11 + 24 
EXCIDEUIL : Atelier de l'Image 
53.62.44.04 + 25 - BESANÇON 
Proforma PSI 81.82.24.51 e 26 - 
BOURG-LES-VALENCE : ECA 
75.43.13.38 - VALENCE : SCR 
75.41.52.20 + 27 - BERNAY 
Agir Conseil 32.43.28.05 + 29 - 
QUIMPER : Planète Info 98.53.25.52 
e 30 - NIMES : Bureau Technique 
66.67.4994 e 31 - TOULOUSE 
Micro Diff 61.63.87.59 - MG 
Bureautique 61.59.65.65 + 33 - 
BORDEAUX : Laborde Bureauti- 
que 56.37.85.63 - Forum Micro 
Info 56.91.85.45 e 34 - MONT- 
PELLIER Micro'Occase 
67.72.98.44 +  Micropus 
/ \ 67.92.58.83 - BEZIERS: Marcelec 
À C0? # 67.31.37.65 - SETE : Puissance 7 


A do à ie à 67.74.12.12 e 35 - RENNES 
MAINTENANCE 2m "rue 22 CGEÉ ALSTROM M nn 
site rats 99.79.52.20 + 36 - CHATEAU- 
À ROUX : Eze Log Pro 54.22.64.03 
- IDM 54.34.00.12 e 37 - CHAM- 
BRAY-LES-TOURS : LIM 47.27.29.00 + 38 - ST-MARTIN-D'HERES : Dauphiné Inform 76.51.33.30 - VINAY : CRI 76.64.75.51 e 39 - ST-CLAUDE : Micro Boutique 84.45.23.13 e 41 - 
ROMORANTIN : CTV 54.76.06.10 + 42 - ST-ETIENNE : France Disquette 77.21.26.28 + 44 - ST-NAZAIRE : Maison de la Presse 40.66.82.71 - NANTES : PC Cash 40.35.3999 - Stand 
By 40.69.22.60 + 45 - ORLEANS : Cavalier 38.53.23.32 + 46 - CAHORS : Bureau Syst 46 65.35.34.14 e 47 - VILLENEUVE-S/LOT : Couturier 53.70.50.76 + 49 - ST-PIERRE-MONT- 
LIMART : Poirier 41.75.15.62 - CHOLET : Home Info 41.58.32.60 - ANGERS : IDEA 41.48.14.55 e 51 - REIMS : CTI 26.40.39.31 e 53 - LAVAL : MIL 43.49.08.25 - CIA 43.49.24.35 e 57 
- METZ : Micro Boutique 87.75.41.56 - SARREBOURG : Burotic 87.23.60.36 + 59 - VILLENEUVE-D'ASCQ : Micropuce 20.47.18.57 - LILLE : Spot Diff 20.57.67.33 + 61 - ALENÇON 
BIA 33.26.79.98 e 62 - LENS : Intograph 21.42.05.50 + 63 - CLERMONT-FERRAND : Neyrial 73.93.94.38 + 64 - PAU : Base 4 59.83.78.78 + 66 - PERPIGNAN : ABC infor 68.67.26.12 
- Infor Service 68.35.14.21 + 67 - ERSTEIN : Fritsch 88.98.03.51 - STRASBOURG : infor + 88.36.66.08 - Logi + 88.60.17.60 + 69 - LYON : JCR Lyon Computer 78.61.16.39 - France 
Disquette 78.01.79.63 - Accès Intor 78.52.43.51 - Ordielec 78.27.80.17 + 73 - CHAMBERY : Infograph 79.85.38.81 + 74 - ANNECY : Décibel 50.57.70.41 - CLUSE : Librairie Montaigne 
50.98.49.85 + 76 - ROUEN : Conseil Computer 35.63.36.06 - LE HAVRE : Loisir Infor 35.43.51.54 + 80 - AMIENS : IFO Micro 22.91.94.47 + 81 - ALBI : Info 2000 63.47.56.63 
° 83 - TOULON : Argonaute 94.91.25.14 - Psie 94.93.11.20 - LA VALETTE : Phonola 94.75.17.65 - SIX-FOURS : M + Infor 94.34.26.48 e 84 - AVIGNON : SCR 90.32.56.46 - ST-MARTIN- 
DE-BRASQUE : Wild West Europe 90.77.61.36 + 85 - DOMPIERRE : SORAM 51.34.19.22 - LA ROCHE-S/YON : Microboutique Pompidou 51.37.26.47 + 86 - SMARVES : GNT 
49.37.52.94 e 87 - LIMOGES : SOMIF 55.34.64.19 - SEMPA 55.77.29.39 + 90 - BELFORT : Pollen infor 84.22.84.44 e 91 - VILLEMOISSON : ICV 69.04.04.50 + 92 - MONTROUGE 
SFRAP Micro 48.55.82.82 e 94 - ALFORTVILLE : Elfie 48.93.72.83 + 97 - LA REUNION : BIS 267.27.93.15 


: 7.7 De Et aussi directement chez T.R.A.N., AV. LAVOISIER 
GED VIT" Zi. LES FOURCHES, LES ESPALUNS, 83160 LA VALETTE - Tél. 94.21.19.68 
INFORMATIQUE Cette liste n'est pas limitative. 


BON DE 
COMMANDE — 


NOUVEAUTES | REPORT TOTAL GENERAL A + B 
+ port 10 % | L] Hors série n° 2 sans cassette 13F 


| [] Hors série n° 8 sans cassette 15F 
AMSTAR n° 1 épuisé | [1 Hors série n° 4 15F - 
[] Compilation CPC 1-2-3-4 70F | Entourez le (ou les) numéro(s) commandé(s). 
[] La pratique des imprimantes | 
Michel ARCHAMBAULT FCI RS CASSETTES 
Apprenez l'électronique sur AMSTRAD | Franco de port 
P. BEAUFILS & B. DESPERRIER SE — | 
1 exemplaire AMSTAR n° 10F - | Cassettes n° 1, 2, 14, 17 épuisées 
1 cassette représente un numéro 
LIVRES | [J abonné 45F 
+ port 10 % | [] non abonné 55F 
| [ abonnement cassettes (11 n°) 450 F 
[1 Mieux programmer AMSTRAD 85F _____ | Jecommande les cassettes n° 
[] Communiquez avec AMSTRAD | 
D. BONOMO - E. DUTERTRE DO | DISQUETTES 
-] Jouez avec AMSTRAD -— KERLOCH 48 F | | Franco de port 
Programmes utilitaires pour AMSTRAD | 
Michel ARCHAMBAULT 85F. 1 disquette contient 2 n° consécutifs de CPC 
1 L'Univers des PCW — Patrick LEON IF | _ Disquette n° 1 comprend CPC 1 et 2 
Cassette | — Disquette n° 2 comprend CPC 3 et 4 
- Communiquez avec AMSTRAD 190 F | _ Disquetten° 3comprend CPC5 et 6 
_ Disquettes | — Disquette n° 4 comprend CPC 7 et 8 
J L'Univers du PCW -— Patrick LEON 150 F 2 | _ Disquette n° 5 comprend CPC 9 et 10 
Communiquez avec Amstrad 250 F | - Disquette n° 6 comprend CPC 11 et 12 
| — Disquette n° 7 comprend CPC 13 et 14 
A: TOTAL — | — Disquette n° 8 comprend CPC 15 et 16 
| — Disquette n° 9 comprend CPC 17 et 18 
B':PORT 10% | - Disquette n° 10 comprend CPC 19 et 20 


— Disquette n° 11 comprend CPC 21 et 22 
À + B TOTAL GENERAL | _ Disquette n° 1 HS comprend CPC 1 HS 


| — Disquette n° 2HS comprend CPC 2HS 
ANCIENS NUMEROS | — Disquette n° 3 HS comprend CPC3HS 
Franco de port | — Disquette n° 4 HS comprend CPC 4 HS 


| [] abonné 110F 
Attention, n° 1 à 6, 12 et 14 épuisés | [] non abonné 140F 
| (1 abonnement disquettes (6) 600 F 
8,9, 10,11, 13, 15, 16, 17, | Je commande les disquettes n° 
18, 19, 20, 21, 22 25F | 
1 7, BF = =.) TOTAL GENERAL FRANCO _— 
] Hors série n° 1 avec cassette 47F 0 | Port en sus 10 % pour envois par avion 


NOM Ra TI E EMOLRrS CRETE Pre. Prénom : 


Adresse : 


Code postal : : shit. DNPRE, Ville : 


DAT ss ge —. Signature : 


Merci d'écrire en majuscules. 
Ci-joint un chèque libellé à l'ordre de : Editions SORACOM. Retournez le(s) bulletin(s) ou une photocopie à : Editions SORA- 
COM - La Haie de Pan — 35170 BRUZ. 


|| Nom 


Adresse —— __— 


| | Désignalor — 


\[ : _ 


\ 


BON DE COMM 


nn 
a 
EE ———— 


| 
L 
| 
| 
| 
| 

| 


ENFIN REEDITES ! 


Les quatre premiers 
numéros de CPC 
È L, en un seul livre 
. NUMEROS 


De nombreux 
programmes de jeux 
et utilitaires, des 
conseils pratiques, 
trucs et astuces, 
schémas, des 4 
premiers n° de CPC 
réunis en un seul 
livre. 


+ BON DE COMMANDE 
= = + 10 % port (Compilation CPC) 


NON: si4 eds nanmesss Prénom. : se sde ss ss ous 


Ci-joint chèque de .......................... à l'ordre de Bretagne Edit’ Presse 
à retourner à Bretagne Edit’ Presse - La Haye de Pan - 35170 BRUZ 


